Question

delphi中edit编辑框里面的值怎么取得电脑当前的日期和时间星期

Answer 1

要包含头文件：DateUtils

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DateUtils;

type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var s: string;
begin
case DayOfWeek(Today()) of
1: s := '星期日';
2: s := '星期一';
3: s := '星期二';
4: s := '星期三';
5: s := '星期四';
6: s := '星期五';
7: s := '星期六';
end;

Edit1.Text := DateTimeToStr(Now()) + ' '+ s;
end;

end.

Answer 2

当前的日期和时间：Formatdatetime('YYYY-mm-DD HH:MM:SS',NOW)即可；

星期:
引用单元：SysUtils
function DayOfWeek(Date: TDateTime): Integer;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
begin
s := FormatDateTime('dddd',Now);
Edit1.Text := DateTimeToStr(Now())+ ' '+s;
end;
楼主望采纳