Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
var Now,hour,min,sec,msec: Word;
begin
// ######## Das Folgende ist nur ein vereinfachter Test mit 2 Zuständen####
//Pendel
DecodeTime(Now,hour,min,sec,msec);
now ist eine Funktion in Delphi, ich weiß nicht was passiert wenn
Du den gleichen Namen nochmals als Variable benutzt.
Vielleicht ist es besser so:
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
var hour,min,sec,msec: Word;
begin
// ######## Das Folgende ist nur ein vereinfachter Test mit 2 Zuständen####
//Pendel
DecodeTime(Now,hour,min,sec,msec);
Grüße
Klaus