Variable Timer

[FGD]

Hoffentlich is da der richtige Threadtitel...

Delphi-Quellcode:

type  Timer = Array(*[1..40]*) of TTimer;

procedure FNummerTimerstart(NR: Integer);
begin
 if Form1.RadioGroup1.itemindex =0 then
 Timer[NR].enabled := true;
 if Form1.RadioGroup1.itemindex =1 then
 begin
  Nr := Nr+10;
  Timer[NR].enabled := true;
 end;
 if Form1.RadioGroup1.itemindex =2 then
 begin
  Nr := Nr+20;
  Timer[NR].enabled := true;
 end;
 if Form1.RadioGroup1.itemindex =3 then
 begin
  Nr := Nr+30;
  Timer[NR].enabled := true;
 end;
end;

Aufgerufen zum Beispiel mit:

Delphi-Quellcode:

FNummerTimerstart(2);

Ich hab mich hieran orientiert:
http://www.wer-weiss-was.de/theme159...le1957127.html
Die Timer gibts aber schon.
Zum Problem, dort werden eckige Klammern [] verwendet, bei mir gibts da eine Fehlermeldung:

Code:

[Fehler]: '(' erwartet, aber '[' gefunden

Wenn ich jetzt normale Klammern () nehme:

Code:

[Fehler]: Record, Objekt oder Klassentyp erforderlich

Was ist hier falsch? :wall:

[DeddyH]

Das verstehe ich ehrlich gesagt nicht. Die eckigen Klammern müssten eigentlich richtig sein. Allerdings wäre es wohl besser, wenn das statt einer Prozedur eine Methode Deines Formulars wäre.

[Matze]

Hallo,

nimm "var" anstelle von "type":

Delphi-Quellcode:

var Timer: array(*[1..40]*) of TTimer;

Denk auch daran, die Timer zu erzeugen.

Grüße

[FAlter]

Hi,

nenn den Typ mal z. B. TTimerArray. Und dann brauchst du eine Variable Timer vom Typ TTimerArray.

Mfg
FAlter

[tomsel]

Du hast keine Variable vom Typ Timer deklariert, sonden verwendest statt dessen den Typbezeichner, als wäre er eine.

Delphi-Quellcode:

...
var
  timers: Timer;
begin
  timers[0] := humbug;
end;

[DeddyH]

Also nochmal im Ganzen:

Delphi-Quellcode:

type 
  TTimerArray = array[1..10] of TTimer;
  
  TForm1 = class(TForm)
  ...
  private  
    FTimerArray: TTimerArray;
  ...
  end;

Jetzt noch im OnCreate die Timer anlegen und OnDestroy wieder freigeben.

[Fussball-Robby]

Und die Funktion kannst du auch ziemlich verkürzen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
  private
    procedure FNummerTimerstart(NR: Integer);
  //..
  end;

implementation

procedure TForm1.FNummerTimerstart(NR: Integer);
begin
  case RadioGroup1.ItemIndex of
    1: Inc(Nr, 10);
    2: Inc(Nr, 20);
    3: Inc(Nr, 30);
  end;
  {oder:
  Inc(Nr, RadioGroup1.ItemIndex * 10);}
  Timer[NR].Enabled := True;
end;

[FGD]

Zitat:

Zitat von DeddyH

Das verstehe ich ehrlich gesagt nicht. Die eckigen Klammern müssten eigentlich richtig sein. Allerdings wäre es wohl besser, wenn das statt einer Prozedur eine Methode Deines Formulars wäre.

Funktionen/Prozeduren hab ich verstanden, Methoden noch nicht.

Zitat:

Zitat von Matze

Hallo,

nimm "var" anstelle von "type":

Delphi-Quellcode:

var Timer: array(*[1..40]*) of TTimer;

Denk auch daran, die Timer zu erzeugen.

Grüße

und

Zitat:

Zitat von FAlter

Hi,

nenn den Typ mal z. B. TTimerArray. Und dann brauchst du eine Variable Timer vom Typ TTimerArray.

Mfg
FAlter

Da gibts eine schöne Zugriffsverletzungen, obwohl die Timer bereits auf dem Formular sind oder ist das, dass Problem :?:

Zitat:

Zitat von Fussball-Robby

Und die Funktion kannst du auch ziemlich verkürzen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
  private
    procedure FNummerTimerstart(NR: Integer);
  //..
  end;

implementation

procedure TForm1.FNummerTimerstart(NR: Integer);
begin
  case RadioGroup1.ItemIndex of
    1: Inc(Nr, 10);
    2: Inc(Nr, 20);
    3: Inc(Nr, 30);
  end;
  {oder:
  Inc(Nr, RadioGroup1.ItemIndex * 10);}
  Timer[NR].Enabled := True;
end;

Gefällt mir gut aber, auch Zugriffsverletzung

[Matze]

Ich vermute, du hast die Timer nicht erzeugt:

Delphi-Quellcode:

for i := 0 to 39 do
begin
  Timer[i] := TTimer.Create(self);
  Timer[i].Interval := ...
  // ...
end;

Grüße

Edit: "Interval" schreibt man mit einem "l".

[FGD]

Die Timer sind aber auf dem Formular schon vorhanden.

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