Variable Timer

[Matze]

Achso, wenn du die Timer dann ansprechen möchtest, müsstest du über FindComponent gehen.

Nachtrag: Dein Array ist im Prinzip dann überflüssig.

Ansprechen kannst du sie so. Das setzt voraus, dass die Timer "Timer1", "Timer2", ... heißen. Sie müssen einen fortlaufenden Index besitzen.

Delphi-Quellcode:

FindComponent('Timer' + IntToStr(NR)) as TTimer).Enabled := ...

[FGD]

Zitat:

Zitat von Matze

Delphi-Quellcode:

FindComponent('Timer' + IntToStr(NR)) as TTimer).Enabled := ...

Ist das so gemeint:

Delphi-Quellcode:

(FindComponent('Timer' + IntToStr(NR)) as TTimer).Enabled := false;

Fehlermeldungen des Compilers

Code:

[Fehler]: Undefinierter Bezeichner: 'FindComponent'

Code:

[Fehler]: Operator ist auf diesen Operandentyp nicht anwendbar*

*bei Markierung zwischen TTimer).Enabled

[Matze]

Ja genau, ich habe die erste Klammer vergessen, sorry. FindComponent ist in der Unit Classes definiert, die Delphi automatisch einbinden sollte (sie müsste in den uses stehen).

Bei mir funktioniert der Code.

[Medium]

FindComponent ist nicht wirklich einfach so in Classes deklariert, sondern der Vorfahre der Klassen, die Komponenten beinhalten können ist in Classes deklariert. In diesem Fall soll wohl Form1.FindComponent() gemeint sein, was du in einer klassenlosen Funktion auch voll qualifizieren musst. Da das aber reichlich unschön, und an der OOP vorbei ist, empfehle ich die Funktion zu einer Methode deines Formulars zu machen. Dort wird implizit "self" referenziert, und du kannst unqualifiziert FindComponent() benutzen, bzw. sollte man es dort dann auch tunlichst!

[FGD]

Zitat:

Zitat von Medium

In diesem Fall soll wohl Form1.FindComponent() gemeint sein, was du in einer klassenlosen Funktion auch voll qualifizieren musst.

Das Form1 hat gefehlt.

Zitat:

Zitat von Medium

Da das aber reichlich unschön, und an der OOP vorbei ist, empfehle ich die Funktion zu einer Methode deines Formulars zu machen. Dort wird implizit "self" referenziert, und du kannst unqualifiziert FindComponent() benutzen, bzw. sollte man es dort dann auch tunlichst!

Methoden muss ich mir noch angucken.

:dp: Es ist schön wie schnell einem hier geholfen wird :thumb:

[Fussball-Robby]

Zitat:

Zitat von FGD

Zitat:

Zitat von Medium

Da das aber reichlich unschön, und an der OOP vorbei ist, empfehle ich die Funktion zu einer Methode deines Formulars zu machen. Dort wird implizit "self" referenziert, und du kannst unqualifiziert FindComponent() benutzen, bzw. sollte man es dort dann auch tunlichst!

Methoden muss ich mir noch angucken.

Du musst die Prozedur im private-Abschnitt der Form deklarieren. Siehe #7.

[DeddyH]

Prozedur:

Delphi-Quellcode:

procedure SayHello;
begin
  ShowMessage('Hello World');
end;

Methode:

Delphi-Quellcode:

type
  TFormWuppdi = class(TForm)
  ...
  private
    procedure SayHello;
  ...
  end;

...

procedure TFormWuppdi.SayHello;
begin
  ShowMessage('Hello World');
end;

[edit] Zu langsam, dafür ausführlicher *gg* [/edit]