GetTickCount Problem

[Nuclear-Ping]

Delphi-Quellcode:

var
  StartTicks,
  CurTicks: LongInt;
begin
  StartTicks := GetTickCount;
  repeat
    CurTicks := GetTickCount;
    if (CurTicks - StartTicks) >= 1000 then
      begin
        StartTicks := GetTickCount; // <- reset
        ShowMessage ('1000ms vorbei');
      end;
  until FALSE;
end;

[Muetze1]

@Noobinator: Dein Code wird aber wohl keine Änderung in der Progressbar anzeigen, da diese nicht zum malen kommt.

@MrMyagi: Ich warte immernoch auf Antwort zu meine Frage zum Debugger...

[MrMyagi]

@Muetze1 Der Debugger sagt gar nichts, da es zu keinem Fehler etc führt.
Es ist halt nur so, das sich die Progressbar nicht verändert.

[Noobinator]

Zitat von Muetze1:

@Noobinator: Dein Code wird aber wohl keine Änderung in der Progressbar anzeigen, da diese nicht zum malen kommt.

...

in Delphi 7 PE kopiert und funktioniert

[MrMyagi]

@Noobinator
Jepp, bei mir klappts so auch^^

[Muetze1]

Zitat von MrMyagi:

@Muetze1 Der Debugger sagt gar nichts, da es zu keinem Fehler etc führt.
Es ist halt nur so, das sich die Progressbar nicht verändert.

Was hat das eine mit dem anderen zu tun? Du hast doch einen Fehler: es funktioniert nicht. Ich habe eher das Gefühl, dass du gar nicht weißt, was dein Delphi alles kann bzw. was der Debugger hat. Schonmal einen Brechpunkt gesetzt und zeilenweise die Anweisungen durchgegangen, die Variablen angeschaut, den Stack untersucht?