1樓:經朔
簡單點吧,把label1.caption設定成10,然後:
procedure tform1.timer1timer(sender: tobject);
begin
label1.caption:=inttostr(strtoint(label1.caption)-1);
if strtoint(label1.caption)=0 then timer1.enabled:=false;
end;
2樓:日日多金量化程式設計
procedure tform1.button1click(sender: tobject);
begin
timer1.enabled:=true;
end;
procedure tform1.timer1timer(sender: tobject);
var c:integer;
begin
c:=strtodef(label1.caption,10);
c:=c-1;
if c>0 then
label1.caption:=inttostr(c)else
timer1.enabled:=false;
end;
DELPHI中的連結串列問題,刪除節點的時候我把上指標移到下節點頭,跳過的那個節點的記憶體怎麼釋放謝謝
先用一個指標標記要釋放的那個節點,然後把前後兩個節點連結,最後釋放指標指向的這個節點。舉個例子,假設head是連結串列頭,現在要刪除連結串列中的第i個節點 type pnode tnode tnode record data integer next pnode end procedure dele...
delphi點選按鈕執行,delphi中 呼叫button1 click與呼叫buttonclick button1 有差別嗎
在button的click事件中寫 winexec regsvr32 u nvcpl.dll s sw hide 就沒有註冊成功的對話方塊了 用winexec,就兩個引數.比如我要開啟calc winexec pchar c windows system32 clac.exe sw hide 或者是...
感情小問題,情感小問題?
他愛的方式錯了,看得出這個男人對你很愛,幾乎付出真心,但當你和異性朋友去吃飯,他有點吃醋這是男人的佔有慾在作祟,他怕別的男人搶走你,所以才會那麼絕對,你可以先答應他戀愛但結婚時間要延後,要清楚讓他認識到愛情是兩個人的事,彼此最重要的是信任,不然他結婚一段時間後就會慢慢對你沒有感覺,我相信這會讓你傷心...