TimerEvent zur Laufzeit festlegen

[dr. love]

Ich möchte zur Laufzeit eine Timerkomponente erzeugen. Das ist über

Delphi-Quellcode:

Timer:=TTImer.Create;
Timer.Interval:=1000;
Timer.Enabled:=true;

usw. kein Problem. Nun möchte ich dem Timer Event "OnTimer" aber etwas zuweisen. D.h. der Timer soll immer nach Ablauf des Intervals einen bestimmten Algorithmus ausführen. Wie mache ich das, der Timer wird ja erst zur Laufzeit erzeugt...?

[DGL-luke]

du musst irgendwo schon den event haben. das sollte eine TNotify-Prozedur sein, also "procedure bla(Sender: TObject);".

Die kannst du dann per "Timer.OnTimer := bla;" zuweisen.

[AlexII]

Sag ma wieso klappt das bei mir nicht?

Delphi-Quellcode:

  private
    { private declarations }
    procedure ShowNowTime(Sender: TObject);
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  myTimer: TTimer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.ShowNowTime(Sender: TObject);
begin
  Label1.Caption := DatetimeToStr(Now);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  myTimer := TTimer.Create(Self);
  myTimer.Enabled := False;
  myTimer.Interval := 1000;
  myTimer.OnTimer := ShowNowTime; // <- Error: Wrong number of parameters specified for call to "ShowNowTime"


  myTimer.Enabled := True;
end;

[DeddyH]

Delphi-Quellcode:

myTimer.OnTimer := ShowNowTime;

Du willst ja eine Methode zuweisen und keinen Aufruf derselben.

[DeddyH]

Ist das Delphi oder Lazarus?

[AlexII]

Zitat:

Zitat von DeddyH (Beitrag 1280065)

Delphi-Quellcode:

myTimer.OnTimer := ShowNowTime;

Du willst ja eine Methode zuweisen und keinen Aufruf derselben.

Hm.... aber die Zuweisung produziert ja gerade den Fehler.
Und wie rufe ich eine Methode ab?

Ist für Delphi und Lazarus, jetzt konkret aber erstmal für Lazarus. :)

Also ich möchte diese Procudure laufen lassen:

Delphi-Quellcode:

procedure TForm1.ShowNowTime(Sender: TObject);
begin
  Label1.Caption := DatetimeToStr(Now);
end;

[DeddyH]

Unter Delphi sollte es aber so funktionieren, unter Lazarus musst Du entweder den Modus von FPC auf Delphi ändern oder es AFAIK etwas anders formulieren:

Delphi-Quellcode:

myTimer.OnTimer := @ShowNowTime;

[AlexII]

Zitat:

Zitat von DeddyH (Beitrag 1280070)

Unter Delphi sollte es aber so funktionieren, unter Lazarus musst Du entweder den Modus von FPC auf Delphi ändern oder es AFAIK etwas anders formulieren:

Delphi-Quellcode:

myTimer.OnTimer := @ShowNowTime;

Ja das klappt. :thumb:

[himitsu]

Vielleicht solltest du langsam dein Profil ändern? (Lazarus steht auch zur Auswahl) :stupid: (leider kann man nicht Mehreres angeben)

Delphi referenziert/dereferenziert halt eine Typen automatisch, wenn es erkennt daß würde passen.
Lazarus FreePascal ist da "standardmäßig" halt etwas strikter.
Aber auch Delphi sollte es mit @ versehen.

Und warum ist myTimer global?

[DeddyH]

Zitat:

Zitat von himitsu (Beitrag 1280072)

Und warum ist myTimer global?

Schlimmer noch, bei jedem ButtonClick wird eine neue Instanz angelegt.

[AlexII]

Ja ja ich weiß schon... das ist nur ein Testprojekt. Mir gings nur ums Verständnis.

[himitsu]

auch wenn etwas spät...

Vielleicht ist der Button1 ja ein "ErstelleNeuenTimer"-Button? :stupid: (die Caption kann man hier ja nicht erkennen)

[AlexII]

Zitat:

Zitat von himitsu (Beitrag 1280078)

auch wenn etwas spät...

Vielleicht ist der Button1 ja ein "ErstelleNeuenTimer"-Button? :stupid: (die Caption kann man hier ja nicht erkennen)

Jah... also eigentlich plane ich einen Wecker zu schreiben, und das waren hier die ersten Versuche. Wenn ich das Projekt richtig starte, dann kann man mich echt zurechtweisen. :-D

[mkinzler]

Ich würde hierfür aber nur einen Timer verwenden, der in einem Zeitraster auf Ablauf der einzelnen Termine prüft.

[AlexII]

Zitat:

Zitat von mkinzler (Beitrag 1280082)

Ich würde hierfür aber nur einen Timer verwenden, der in einem Zeitraster auf Ablauf der einzelnen Termine prüft.

Hm... und wenn es sehr viele Termine sind, so das der Timer in 1 Sekunde nicht schafft alle durchzugehen, was dann? Aber ok mein Wecker wird keine Sekunden haben, daher geht das schon.

[mkinzler]

Und du meinst, dass das System, dann durch mehrere Timer flüssiger läuft?

Ich ging auch von einem gröberen Zeitraster aus.