在delphi如何使變數隨timer而改變 10

2025-01-10 00:20:14 字數 3516 閱讀 7798

在delphi如何使變數隨timer而改變

1樓:網友

很簡單啊。變數i定義在過程之外(單元級全域性變數),然後在timer控制項的ontimer事件中寫一條賦值語句: i:=i+1; 就行了。

2樓:網友

樓上的注意timer的interval屬性要設為1,告訴你另外乙個辦法就是註冊timer執行緒給主窗體,這個是c++管用的方法,因為c++裡沒有timer控制項,然後就可以定時激發了,也可以用獲取系統時間的辦法。

3樓:隨風姬如雪

先放乙個timer控制項到form中,timer在system中,然後設定timer控制項的interval屬性為1000(即1000毫秒),然後在timer的ontime時間中加入**。

如一樓所說的那樣,var

form1: tform1;

i:integer;

implementation

r *.dfm}

procedure : tobject);

begini:=0;

end;procedure : tobject);

vari:integer;

begini:=i+1;

end;end.

delphi timer用法

4樓:經朔

就是個定時器。enabled就是開關,為false時這個東西就不工作了,裡面的**就不會被執行了。

它有個interval屬性,這個的單位是毫秒。當enabled為true時,每隔interval毫秒,就執行一次裡面的**。

比如,interval設為1000,則每隔1000毫秒,裡面的**就被執行一次。

delphi timer能不能帶引數

5樓:網友

不要在ttimer的事件裡面寫處理**,把**抽出來作為乙個函式或過程,在ttimer的事件**裡呼叫就行了,你想設什麼引數都可以。

procedure dotimer(param_1,param_2,..param_n: param_type);begin

end;procedure : tobject);

begindotimer(param_1,param_2,..param_n);

end;procedure : tobject);

begindotimer(param_1,param_2,..param_n);

end;procedure : tobject);

begindotimer(param_1,param_2,..param_n);

end;procedure : tobject);

begindotimer(param_1,param_2,..param_n);

end;procedure : tobject);

begindotimer(param_1,param_2,..param_n);

end;

delphi中timer的使用

6樓:網友

procedure : tobject);

false;

end;procedure : tobject);

begincase of

end;:=true;

end;procedure : tobject);

false;//設為false,可以不設,但這樣會在你設定的時間後再次執行。

do something;//你要做的事情。

end;

delphi timer**

7樓:網友

project--view source

form4:=;

使螞嫌旦這個窗體可見。

重新整理這個窗體。

工程建立應用程式的主窗體,者晌並裝入記憶體。

form4);

隱藏閃現窗悶擾體。

釋放閃現窗體所佔用的資源。, form1);

form2);

form3);

end./主窗體。

procedure : tobject);

var/定義乙個基準時間。

currenttime:longint;

begin/取得這個基準時間值。

currenttime:=gettickcount div 1000;

如果延時沒有達到"4"秒,什麼也不做,繼續這個迴圈。

while (longint(gettickcount div 1000)<(currenttime+4)) do;

end;

求delphi timer的用法。

8樓:後初同

project--view source begin ; form4:=; //使這個窗體可見 ; //重新整理這個窗體 ; //工程建立應用程式的主窗體,並裝入記憶體 , form4); //隱藏閃現窗體 ; //釋放閃現窗體所佔用的資源 ; form1); form2); form3); end. //主窗體 procedure :

tobject); var //定義乙個基準時間 currenttime:longint; begin //取得這個基準時間值 currenttime:=gettickcount div 1000; //如果延時沒有達到"4"秒,什麼也不做,繼續這個迴圈 while (longint(gettickcount div 1000)<(currenttime+4)) do; end;

delphi timer 設計

9樓:網友

先設乙個全域性祥襲消變數:

run : integer;

button1按鈕下初始 run值為0 :

procedure : tobject);

beginrun :=0;

true;end;timer控制項的timer事件中讓run+1;

procedure : tobject);

beginrun :=run + 1;

end;button2按謹知禪毀鈕下顯示執行的事件,即為run 的值:

procedure : tobject);

inttostr(run);

end;

delphi中的timer問題

10樓:oo木葉之魂

s:=;

'歡迎您';

sleep(500);

還有,如果interval是1000的話,sleep(500)比較好,因為單位是毫秒,500就是半秒的意思,sleep(1)無意義。

delphi timer

11樓:網友

將timer的時間設攔首置為200ms, 讀完乙個重新正滾啟簡清數動,設定乙個計數器, 記錄當前的函式位置。

Python的 如何使跨模組的變數

1 import 模組 模組.變數名 2 from 模組 import 變數名,這樣可以直接使用不過不太應用後面的那種,可能會出現重名的變數,無法分辨 python如何在乙個模組中呼叫另乙個模組中的變數 python在乙個模組中呼叫另乙個模組中的變數步驟如下 1 要實現變數的深度拷貝,專需要使用到c...

在ecel中如何使用, 在excel中如何使用

是絕對引用的意思,比如 b1,b1,b 1 三者的區別如下 b1 橫拉列不變,下拉時改變單元格 當下拉時,會演變成 b2 b3 b4 b5.當橫拉時,會演變成 b1 b1 b1 b1.b1 無論下拉或者橫拉,橫或者列都有可能會變當下拉時,會演變成b2 b3 b4 b5.當橫拉時,會演變成c1 d1 ...

C在CLass1中建立的變數如何使其變成公共變數,使任

可以使用靜態變數 如 class class1 使用時用類名.變數名就好,如class1.var1 50 在c 裡沒有全域性變數的概念!但是,如果你想定義某個變數具有全域性功能的話,你可以用public 和static來定義。最好是定義在某個類裡面。比如 定義乙個全域性的整型變數 假設在 useri...