Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - nen ganz simpler counter
Avalon - Do 08.04.04 12:53
Titel: nen ganz simpler counter
Ich will in ein Programm einen counter integrieren, der ab Programmstart anfäng, sekunden zu zählen, und bei eineb bestimmten ereigniss aufhört. Kann mir da jemand helfen? Bitte bitte!
Thx im vorraus Av@lon
NetZwerg - Do 08.04.04 12:59
Du nimmst nen Timer, stellt Intervall auf 1000.
dann OnTimer:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm1.Timer1Timer(Sender: TObject);
var
Seconds, Minutes, Hours: Integer;
begin
Seconds := Seconds + 1;
If Seconds = 60 then
begin
Seconds := 0;
Minutes := Minutes + 1;
end;
If Minutes = 60 then
begin
Minutes := 0;
Hours := Hours + 1;
end;
end; |
Wen du was am Code nich verstehst, nur nachfragen!! :D
cya, dave
Avalon - Do 08.04.04 13:03
ich werd mal versuchen, obs klappt. Danke auf jeden fall !!!
iGoA - Do 08.04.04 14:42
Ich glaube Minutes, Seconds und Hours müssen globale Variablen sein, da sie sonst bei jedem Aufruf der Methode reinitialisiert werden. War jedenfalls früher bei Turbo Pascal so. *g*
DarkHunter - Do 08.04.04 16:41
das seconds := seconds +1
kannst du ganz einfach durch
inc(seconds)machn
tommie-lie - Do 08.04.04 20:42
Technisch gesehen macht's aber keinen Unterschied (gleicher assembler-Code seit einigen Versionen (5 oder 6?).
Und wenn man den Befehl inc() nicht kennt, ist "var := var + 1" ein wenig einfacher zu verstehen ;-)
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!