例如:資料庫儲存生日是20050314好了 那要如何按了一個button之後在三個edit分別顯示[2005][03][14]這樣咧? 謝謝~^_^"

假設你的生日資料長度都是固定的.如同你給的那樣的話. 那麼就試試以下的程式碼吧!

procedure TForm1.Button1Click(Sender: TObject);
var
 str:string;
begin
  str:='20050314';//假設取出來的資料
  edit1.Text:=copy(str,1,4);
  edit2.Text:=copy(str,5,2);
  edit3.Text:=copy(str,7,2);
end;

Best Regards, Rex Chiu 發表人 - rexchiu 於 2005/03/14 14:08:24

------
Best Regards,
Rex Chiu

假設你的生日資料長度都是固定的.如同你給的那樣的話. 那麼就試試以下的程式碼吧!

procedure TForm1.Button1Click(Sender: TObject);
var
 str:string;
begin
  str:='20050314';//假設取出來的資料
  edit1.Text:=copy(str,1,4);
  edit2.Text:=copy(str,5,2);
  edit3.Text:=copy(str,7,2);
end;

Best Regards, Rex Chiu

------
Best Regards,
Rex Chiu

有點怪的問題.. 如果你的生日是字串資料.. 只要在Button.OnClick中, 分別設定三個Edit的值即可。 如: Edit1.Text:=Copy(DateStr, 1, 4); Edit2.Text:=Copy(DateStr, 5, 2); Edit3.Text:=Copy(DateStr, 7, 2); 而如果是生日是日期格式, 則先轉換成字串即可。 這是你要的答案嗎?

引言: 有點怪的問題.. 如果你的生日是字串資料.. 只要在Button.OnClick中, 分別設定三個Edit的值即可。 如: Edit1.Text:=Copy(DateStr, 1, 4); Edit2.Text:=Copy(DateStr, 5, 2); Edit3.Text:=Copy(DateStr, 7, 2); 而如果是生日是日期格式, 則先轉換成字串即可。 這是你要的答案嗎?

拍謝，借這篇來問問題^^" 請問如果是找今天的月份或日期呢 我用了Edit1.Text := copy(DateToStr(now()),5,2); 但出現的是"/3"，要如何做才能出現"03"呢

引言: 拍謝，借這篇來問問題^^" 請問如果是找今天的月份或日期呢 我用了Edit1.Text := copy(DateToStr(now()),5,2); 但出現的是"/3"，要如何做才能出現"03"呢

改用這樣 Edit1.Text := Copy(FormatDateTime('yyyyMMdd', Now), 5, 2); FormatDateTime 是格式化日期時間的函數 前為格式，後為時間 注意哦，是 MM 不是 mm mm 的話，就變得 分鐘(minute) 格式去查 OnLine Help 就有了

你好 我測試了一下,用yyyymmdd似乎是沒有問題,應該是說如果mm是在hh的後面,才會是分鐘!!跟大小寫是沒有關係的!! Pillar Wang

------
Pillar Wang

感謝wyndog和pillar62兩位大大的解說 我己了解

引言: 你好 我測試了一下,用yyyymmdd似乎是沒有問題,應該是說如果mm是在hh的後面,才會是分鐘!!跟大小寫是沒有關係的!! Pillar Wang

終於... 勤勞一點去查了一下 OnLine Help 了，原來是我記錯了 mm 是月份，但是分鐘是 nn 也因為 Pillar Wang 兄的關係，所以，我就測了一下 hh:mm:ss 發現是正確地，最後根據實驗的所得是 如果 mm 前面是 hh 的話，會自動被解釋成分鐘，其它情形還是維持月份 所以，要得到完整的日期時間 'yyyy/mm/dd hh:mm:ss' 是可以的 'yyyy/mm/dd hh:nn:ss' 是標準合語法的用法 至於用哪種比較好，就見人見智了