Format-Funktion zu langsam

[Sharky]

Zitat von Luckie:

Zeig mal den Code drumherum.

Ich habe das eben mal mit diesem Code gemacht:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Start, Stop, Freq: Int64;
  ndx : Integer;
  sl  : TStringList;
  Id: Double;
begin
  QueryPerformanceCounter(Start);
  sl := TStringList.Create;
  try
    for ndx := 1 to 8000000 do
    begin
      Id := ndx;
//      sl.Add (FloatToStr (id));  // Variante 1
//      sl.Add(Format('%.4f', [Id])); // Variante 2
      sl.Add(FormatFloat('########.0000',ID)); // Variante 3
    end;
    QueryPerformanceCounter(Stop);
    QueryPerformanceFrequency(Freq);
    Label1.Caption := Format('%f ms', [(Stop - Start) * 1000 / Freq]);
    sl.SaveToFile('c:\liste3.txt');
  finally
   sl.Free;
  end;
end;

Variante 1 : 5.671 ms
Variante 2 : 7.143 ms
Varinate 3 : 7.657 ms