Booleanabfrage eines timers

[delphi_newbie_123]

ahh lol danke ;))
:wall:

[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:

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';

:mrgreen:

[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. :thuimb:

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

Delphi-Quellcode:

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

:mrgreen: :mrgreen: :mrgreen:

[alcaeus]

Zitat:

Zitat von "Meflin

oder auch gleich

Delphi-Quellcode:

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

:mrgreen:

Ach kommt schon jungs:

Delphi-Quellcode:

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

Greetz
alcaeus

[edit]:oops: Zu spät :mrgreen:[/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. :lol:

[delphi_newbie_123]

hehe ;)
danke sehr für die listbox möglichkeit