我這個語句為何得不到正确的當前小時數呀？ var systime:Tsystemtime; begin edit1.text:=inttostr(systime.wHour); end; 比如現在為9點鍾，但EDIT1中得到的并不是9或09的字樣，上面的語句有什麼地方錯了嗎？（應該是對的呀） IMPROVE FOREVER

var st: TSystemTime;
begin
  //GetSystemTime(st);
  GetLocalTime(st);      ShowMessage(IntToStr(st.wHour));
end;

-- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽

Edit1.Text := FormatDateTime('h',Now);

HI, 因為你要先取得目前時間, 如下: GetLocalTime(systime);

Your systime value not assigned. procedure TForm1.Button1Click(Sender: TObject); var systime:Tsystemtime; begin DateTimeToSystemTime(now,systime); edit1.text:=inttostr(systime.wHour); end; /* 使用中文很辛苦,中華男兒當自強 */

hua2000你好: edit1.text:=FormatDateTime('HH',now);  

引言: 上面的語句有什麼地方錯了嗎？（應該是對的呀）

請參考SysUtils的help

報歉，還有一點兒不明白 通過下面語句 var systime:Tsystemtime; begin edit1.text:=inttostr(systime.wHour); end; 得到的一個值具體有什麼意義呀？（它不代表當前小時數，那它代表的是一個什麼呀？） 還有 var nowDate:tdatetime; begin form1.Caption:=datetostr(nowDate); end; 看到caption為1899-12-30 當改成 var nowDate:tdatetime; begin nowDate:=date(); form1.Caption:=datetostr(nowDate); end; 就可以看到正确的時間了。 無故得到一個1899-12-30的時間是怎麼一回事呀？ 什麼原因呀？ IMPROVE FOREVER 發表人 - hua2000 於 2003/01/23 11:16:30

引言: 報歉，還有一點兒不明白 通過下面語句 var systime:Tsystemtime; begin edit1.text:=inttostr(systime.wHour); end; 得到的一個值具體有什麼意義呀？（它不代表當前小時數，那它代表的是一個什麼呀？）

參考 Mickey 兄的回答, 因為您尚未付予 systime 的值 systime 這個變數宣告時有個初值 所以您得到的只是那個初值的 wHour 的值 要得到現在時間, 除了用 GetLocalTime(systemtime) 還有 Mickey 兄提供的 DateTimeToSystemTime(now,systime); 再來就是 william 兄提供的 FormatDateTime('h',Now); 也就是用 DecodeTime(Now, hh, nn, ss, ms) 的方式

引言: 還有 var nowDate:tdatetime; begin form1.Caption:=datetostr(nowDate); end; 看到caption為1899-12-30 當改成 var nowDate:tdatetime; begin nowDate:=date(); form1.Caption:=datetostr(nowDate); end; 就可以看到正确的時間了。 無故得到一個1899-12-30的時間是怎麼一回事呀？ 什麼原因呀？

原因同上, 宣告變數時只有初始值 nowDate := date(); 時, nowDate 這個變數才被指定今天的日期這個值 不知道這樣回答對不對？ -- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽