Format-Funktion zu langsam

[sakura]

Zitat von Jelly:

200x200x200=800.000

Das mit dem Diplom (oder Doktor ) wird nichts! 200^3 = 8.000.000 (8 Millionen!)

Unabhängig davon, sind ca. 13 Sekunden für 8Mio Werte wirklich zu viel?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Start, Stop, Freq: Int64;
  I: Integer;
  Id: Double;
begin
  QueryPerformanceCounter(Start);
  for I := 1 to 8000000 do
  begin
    Id := I;
    Format('%.4f', [Id]);
  end;
  QueryPerformanceCounter(Stop);
  QueryPerformanceFrequency(Freq);
  Label1.Caption := Format('%f ms', [(Stop - Start) * 1000 / Freq]);
end;

......