小弟設定好Time 每五分鐘更新
請問能不能秀出來給使用者看到倒數計時

5:00
4:59
4:58....

------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet

http://delphi.ktop.com.tw/board.php?cid=30&fid=69&tid=89153

供參考~

編輯記錄

var
Form1: TForm1;
target:TDateTime;
implementation
USES DateUtils;
{$R *.dfm}
function CountDownTime(): string;
var
diff, current: TDateTime;//target,
difftime : string;
begin
//target := EncodeDateTime(2009, 7, 25, 00, 00, 0, 0);
current := Now;
diff := target - current;
difftime:= IntToStr(DaysBetween(current, target)) '天' IntToStr(HourOf(diff)) '時' IntToStr(MinuteOf(diff)) '分' IntToStr(SecondOf(diff)) '秒';
result := difftime;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=False
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=CountDownTime
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
target:=INCMinute(Now,5);
Timer1.Enabled:=True
end;
===================引 用 lovemari 文 章===================

小弟設定好Time 每五分鐘更新
請問能不能秀出來給使用者看到倒數計時

5:00
4:59
4:58....

------
What do we live for if not to make life less difficult for each other?