Welcher Timer

[himitsu]

1. Zähler-Variable im Zähler verwendet

Code:

for i := [color=red]i[/color] downto 1 do

2. wozu das Array - das ist doch total sinnlos

3. bei mir geht's - bei dir sollte es aber zumindestens "0" anzeigen - da du's ja nicht zugewiesen hast
PS: du solltest Tag natürlich auch festlegen

Delphi-Quellcode:

Type TForm1 = Class(TForm)
    ...
  Private
    Procedure TimerEvent(Sender: TObject);
  End;


Procedure TForm1.CreateTimers(Sender: TObject);
  Var Timer: TTimer;
    frconfig: TIniFile;  // sowas sollte man doch eher lokal definieren
    i, j: Integer;
 
  Begin
    frconfig := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'frconfig.ini');
      i := frconfig.ReadInteger('Counter', 'Foren', 0);
      For j := 1 to i do Begin
        Timer := TTimer.Create(Form1);  // wegen der Freigabe macht es sich besser, das Objekt irgendwo zuzuordnen (am einfachsten dem Formular)
        Timer.Interval := frconfig.ReadInteger('Foren', 'Timer' + IntToStr(j), 0);
        Timer.Tag := j;  // einen Wert für Tag festlegen
        Timer.Enabled := true;
        Timer.OnTimer := TimerEvent;
      End;
    frconfig.Free;  // Freigeben sollte man die Datei natürlich auch
  End;

Procedure TForm1.TimerEvent(Sender: TObject);
  Begin
    ShowMessage('Ich bin Timer: ' + IntToStr(TTimer(Sender).Tag));
  End;