Hallo Forum!
Mir war mal wieder langweilig und da dachte ich mir, dass meinem Programm noch ein letzter Schliff fehlt.
Nein, ganz im Ernst... es wird so gefordert.
Aber hier nun mein Problem. Ich habe eine Prodezur laufen, die einige Berechnungen mit sich bringt. Da möchte ich gerne dem Benutzer zeigen, wie lange er noch warten muss. Kennt man ja aus vielen Progs.
Hier mal mein (reduzierter) Code:
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37:
| procedure TableCreateClick; var Index : Integer; Line : String; EstimatedTime : TDateTime; t1, t2 : TDateTime; TimeStr : String; begin try Screen.Cursor := crHourGlass;
t1 := Time;
for Index := 0 to Count - 1 do begin
if ((Count - Index) Mod 50 = 0) then begin t2 := Time; EstimatedTime := (Count - Index) * (t2 - t1); TimeStr := FormatDateTime('nn:ss', EstimatedTime);
if Label6.Caption <> TimeStr then Label6.Caption := TimeStr; t1 := Time; end; end;
finally Screen.Cursor := crDefault; end; end; |
Anstelle von sinnvollen Ausgaben auf meinem Label, werden ständig wechselnde Zeiten ausgegeben.
Hat jemand sowas schon einmal gemacht? Danke für eure Tips.
Gruß
freedy