如何得到适合的日期格式？

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=DateTimeToStr(Now);
end;最后Label1.Caption得到了这个值：2004-4-17 18:08:10
现在我想得到的值是：2004-04-17 18:08:10请问我应该再加上什么语句才能呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  DateStr: String;
begin
  DateStr := DateTimeToStr(Now);
  DateStr := LeftStr(DateStr,5)+'0'+RightStr(DateStr,Length(DateStr)-5);
  Label1.Caption := DateStr;
end;

Answer 2

呵呵
不用这么麻烦
真接用一个函数就行
FormatDateTime();procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=FormatDateTime('yyyy-mm-dd hh:mm:ss',now);
end;

Answer 3

function FormatDateTime(const Format: string; DateTime: TDateTime): string;

Answer 4

FormatDateTime('yyyy-mm-dd hh:mm:ss',now);

Answer 5

用decondedate（）
然后用条件语句了
小于10的时候就+‘0’

Answer 6

同意的 insert2003(高级打字员) 做法

Answer 7

function FormatDateTime(const Format: string; DateTime: TDateTime): string;

Answer 8

严重同意的 insert2003(高级打字员) 的方法

Answer 9

呵呵
不用这么麻烦
真接用一个函数就行
FormatDateTime();procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption:=FormatDateTime('yyyy-mm-dd hh:mm:ss',now);
end;
//===============同意这种做法
简便快捷
不用什么判断

Answer 10

FormatDateTime('yyyy-mm-dd hh:mm:ss',now)就ok

Answer 11

Label1.Caption:=FormatDateTime('yyyy-mm-dd hh:mm:ss',now);