Form1.Caption := Format('%d%% Speed: %3.3f Sec.', [ProgressBar1.Position, (GetTickCount - Tick) / 1000]);
wenn ich sowas schon seh *argh*
Caption := Format('%d%% Speed: %3.3f Sec.', [ProgressBar1.Position, (GetTickCount - Tick) / 1000]);
self.Caption := Format('%d%% Speed: %3.3f Sec.', [ProgressBar1.Position, (GetTickCount - Tick) / 1000]);
was besser gefällt
aber ja nicht Form1...
warum verwendest du das Testprogramm nicht weiter?
super Vorlage für einen
Unit-Test oder ein Demo.