請問各位~ 1.[2004/12/06] 是否有個函數可以像 取得[20041206]並為字串值 2.如何找一些函數資料~是否是從Help中那個類別作尋找~ 謝謝~ ^^

您好:  

1. 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= StringReplace('2004/12/06','/','',[rfReplaceAll, rfIgnoreCase]);
end;

2.搜尋一下"函數表" ~~應無所住而生其心~~ 發表人 - terrychen 於 2004/12/06 11:53:09

引言: 請問各位~ 1.[2004/12/06] 是否有個函數可以像 取得[20041206]並為字串值 2.如何找一些函數資料~是否是從Help中那個類別作尋找~ 謝謝~ ^^

如果你確定來源是日期型態的資料 假設有個變數dt的型態是TDate 要把dt轉為yyyymmdd的格式字串可以 FormatDatetime('yyyymmdd',dt);

Hi hahalin 您好~    謝謝~  但是如元件為MaskEdit1和DateTimePicker1所讀出的值~ 應該都是日期型別~ 如果經由FormatDatetime('yyyymmdd',dt); 是否可轉換成民國年呢~ 是應該轉成數字在減1911~ 另外~help中都是英文~我該往那個方向找~ 謝謝~

    function GetDateString(dt:tdate):string;
var stmp:string;
    iyear:integer;
    dt:tdate;
begin
    stmp:=formatdatetime('yyyymmdd',dt);
    iyear:=strtoint(copy(stmp,1,4);
    stmp:=copy(stmp,5,4);
    iyear:=iyear-1911;       
    stmp:=inttostr(iyear) stmp;
    result:=stmp;    
end;