你好, 我對delphi有興趣,
不過我在做的過程中出現一些問題,希望有人可以幫我解決!!


我是一個新手,
我要編寫一個程序用來把秒轉換成下列的形成
小時:分:秒
意思就是在edit1打了一個秒數
按一下button 就可以轉換成小時:分:秒
請問可以把那個碼打給我嗎??

先感激~~~

這.....你可能還要找一本基本pascal 語法書看一下, 這都是用基本運算就能做的,如果IntToStr , Pos , LeftStr ....這類基本函數不熟的話,撰寫程式可能會遇到很多困難
[code delphi]
function TfrmMain.SecToDateTimeString(iSecond: longint): String;
var iHour,iMinute,iSec:longint;
itmp:Longint;
begin
iSec := iSecond mod 60 ;
iHour := iSecond div ( 60*60);
iMinute := ((iSecond - iSec) - iHour*(60*60) ) div 60 ;
Result := IntToStr(iHour) '小時:' IntToStr(iMinute) '分:' IntToStr(iSec) '秒';
end;
procedure TfrmMain.Button1Click(Sender: TObject);
begin
ShowMessage(SecToDateTimeString(StrToInt64( Edit1.Text)));
end;
[/code]

------
額有朝天骨,眼中有靈光

編輯記錄

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.