Hoffentlich is da der richtige Threadtitel...

zusammenfalten · markieren

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

markieren

Code:

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

Wenn ich jetzt normale Klammern () nehme:

markieren

Code:

[Fehler]: Record, Objekt oder Klassentyp erforderlich

Was ist hier falsch?

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.

Hallo,

nimm "var" anstelle von "type":

var Timer: array(*[1..40]*) of TTimer; Denk auch daran, die Timer zu erzeugen.

Grüße

Hi,

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

Mfg
FAlter

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

markieren

Delphi-Quellcode:

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

Also nochmal im Ganzen:

markieren

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.

Und die Funktion kannst du auch ziemlich verkürzen:

zusammenfalten · markieren

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;

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 von Matze:

Hallo,

nimm "var" anstelle von "type":

var Timer: array(*[1..40]*) of TTimer; Denk auch daran, die Timer zu erzeugen.

Grüße

und

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 von Fussball-Robby:

Und die Funktion kannst du auch ziemlich verkürzen:

zusammenfalten · markieren

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

Ich vermute, du hast die Timer nicht erzeugt:

markieren

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".

Die Timer sind aber auf dem Formular schon vorhanden.