Forum: Object-Pascal / Delphi-Language
Delphi
by Alois,
31. Okt 2009
Hi @himitsu,
Deine Variante finde ich am besten. Habe sie in mein Projekt aufgenommen.
Vielen Dank für Deine Hilfe heute. 3 Fragen... 3 Antworten... 3 Treffer. :cheers:
Gruss Alois ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by Alois,
31. Okt 2009
Ah jetzt ja... eben hat's geklingelt. :wall: Vielen Dank euch beide.
Gruss Alois ;)
Forum: Object-Pascal / Delphi-Language
Delphi
by Alois,
31. Okt 2009
Ist mir schon klar. Das hat nichts mit dem Timer1.Interval zu tun.
Ich habs zum besseren Verständnis hier nochmal geändert:
procedure TForm1.Timer1Timer(Sender: TObject);
var
ZeitInterval: integer;
begin
if ZeitInterval > 10 then ZeitInterval := 1;
case ZeitInterval of
2, 4, 6, 8 : begin
Forum: Object-Pascal / Delphi-Language
Delphi
by Alois,
31. Okt 2009
Hi,
Ich benutze in meinem Projekt einen Timer mit einem Intervall von 100ms.
Warume werden die einzelnen case-Anweisungen nicht durchlaufen?
Warum funktioniert folgender Code nicht?
procedure TForm1.Timer1Timer(Sender: TObject);
var
Interval: integer;