我想獲取系統的時間，例如需要的格式是：20040101 但如果是使用date,獲得的日期和時間是：2004-1-1 1. 如何將-去掉 2. 如何在1前添加0 為正確的01. 是不是有其他更好的 函數可以使用？謝謝 ----------要知道自己有多笨，到DelphiK.Top來看看----------

function Date2str(ADateEdit : TDateTime) : string;
var
 Year, Month, Day : word;
 s : string;
begin
 if ADateEdit = 0 then
  Result:='NULL'
 else
  begin
   DecodeDate(ADateEdit, Year, Month, Day);
   s:='';
   s:=s IntToStr(Year);
   if Month < 10 then s:=s '0';
    s:=s IntToStr(Month);
   if Day < 10 then s:=s '0';
    s:=s IntToStr(Day);
   s:=s; // ' 00:00:00';
   Result:=chr($27) s chr($27); 
  end;
end;    //使用方式：
procedure TForm1.Button1Click(Sender: TObject);
var AD : TDateTime;
begin
 AD:=now;
 Edit1.text:=Date2str(AD);
end;
 

請參考 FormatDatetime Function ! 如: str := FormatDatetime('yyyymmdd', Now);