Booleanabfrage eines timers

[delphi_newbie_123]

ahh lol danke )

[Markus]

Und ich hätte nen Vorschlag: machs doch so (brauchst ne Listbox), sonst musst du immer ok, ok, ok usw. klicken.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
    status: boolean;
begin
listbox1.clear;

for i:=1 to 10 do begin
   status:=TTimer(FindComponent('timer'+inttostr(i))).Enabled;

   if status then listbox1.items.add('Timer'+inttostr(i)+': aktiv')
   else listbox1.items.add('Timer'+inttostr(i)+': inaktiv');
end;
end;

[Nikolas]

probiers mal kürzer, da kann man weniger Fehler einbauen:

Delphi-Quellcode:

if ttimer(findcomponent('timer'+inttostr(1))).enabled
then label1.caption:='an' else label1.caption:='aus';

Damit überprüf ich in Timer2 ob Timer1 am Laufen ist. Braucht noch ne Variable weniger und erklärt sich schneller.

P.S.: Such erstmal in deinem Text, ob irgendwo die Timer ausgeschaltet werden. So ein Teil geht eigentlich nicht einfach aus.

[Meflin]

Zitat von Toxman:

probiers mal kürzer, da kann man weniger Fehler einbauen:

Delphi-Quellcode:

if ttimer(findcomponent('timer'+inttostr(1))).enabled
then label1.caption:='an' else label1.caption:='aus';

Damit überprüf ich in Timer2 ob Timer1 am Laufen ist. Braucht noch ne Variable weniger und erklärt sich schneller.

oder auch gleich

Delphi-Quellcode:

if ttimer(findcomponent('timer1')).enabled
then label1.caption:='an' else label1.caption:='aus';

[Nikolas]

Klar, wär kürzer, aber der Code ist dafür gedacht in eine for-Schleife gebaut zu werden und dann müsste man nur die '1' durch 'i' ersetzen.

P.S.: Dann bräuchte ich auch kein FIncomponent.

Delphi-Quellcode:

if timer1.enabled
then label1.caption:='an' else label1.caption:='aus';

[alcaeus]

Zitat von "Meflin:

oder auch gleich

Delphi-Quellcode:

if ttimer(findcomponent('timer1')).enabled
then label1.caption:='an' else label1.caption:='aus';

Ach kommt schon jungs:

Delphi-Quellcode:

if Timer1.enabled then 
  label1.caption:='an' 
else 
  label1.caption:='aus';

Greetz
alcaeus

[edit] Zu spät [/edit]

[Nikolas]

Tja, da sieht man mal, wie man einen Code so weit optimieren kann, dass er im Endeffekt nicht mehr die ursprüngliche Aufgabe lösen kann.

[delphi_newbie_123]

hehe
danke sehr für die listbox möglichkeit