GetTickCount Problem

[MrMyagi]

Moin allerseits,
und zwar weißt ich nicht,
warum mein GetTickCount Teil im Programm
nicht funktioniert.
Es wird beim einem ButtonClick der aktuelle
GetTickCount-Wert in der integer-Variable "start"
gespeichert und diese wird dann vom aktuellen
GetTickCount-Wert subtrahiert und falls das
Ergebnis = 1000 ms ist, soll die Progressbar
10 Stellen weiter gehen.

Delphi-Quellcode:

.
.
.
start := GetTickCount;
if (GetTickCount-start) = 1000 then
begin
Progressbar1.Position := 10;
end;
.
.
.

[shmia]

Delphi-Quellcode:

Progressbar1.StepBy(10);

[MrMyagi]

Danke für die schnelle Antwort,
ändern tuts allerdings auch nichts :(

mfG, Nico

[Muetze1]

Delphi-Quellcode:

start := GetTickCount;
if (GetTickCount-start) = 1000 then

Was soll der Compiler denn genau machen zwischen diesen beiden Zeilen, was 1 Sekunde dauert? Er macht einfach weiter und braucht bestimmt nicht 1 Sekunde zwischen diesen beiden Zeilen...

[Noobinator]

Delphi-Quellcode:

Progressbar1.Position := 10;

setzt deine Position ja immer wieder auf 10.

wenn schon dann:

Delphi-Quellcode:

Progressbar1.Position := Progressbar1.Position + 10;

um immer 10 Schritte weiter zu gehen.

[OregonGhost]

Der Unterschied im TickCount wird nie genau 1000 sein. Vergleiche auf Größer Gleich.

[Apollonius]

Zum einen solltest du nicht auf Gleichheit mit 1000 prüfen, denn du kannst kaum in jeder Millisekunde GetTickCount abfragen. Das eigentliche Problem ist meiner Meinung nach aber, dass du Start ja direkt vor der Abfrage aktualisierst. Und diese Zuweisung dauert sicherlich keine Sekunde.

[MrMyagi]

Eigendlich möchte ich mit GetTickCount
erreichen, dass mein Programm alle ...ms
die Progressbar "erweitert", sprich die
"Installation" vorangeht.
Ja ich weiß, dass es das jetzt noch nicht kann,
also der Endlosvorgang, aber dies war erstmal zu Testzwecken,
um zu gucken, ob er überhaupt nach 1000ms, sprich 1s etwas tut
und dies war leider nicht der Fall.


mfG, Nico

[shmia]

Delphi-Quellcode:

start := GetTickCount; 
...

var
  msecs : integer;
begin  
  msecs := GetTickCount-start;
  ProgressBar1.Position := (msecs div 1000) * 10;

[Muetze1]

Der Code wird einmalig abgearbeitet und dann ist gut. Wieso sollte er denn urplötzlich diesen Code wieder durchlaufen?