Format-Funktion zu langsam

[Jelly]

Zitat von Luckie:

Zeig mal den Code drumherum.

Delphi-Quellcode:

    { 3D-Matrix mit Parametern }
    for Nr := 1 to 2 do begin
        for iz := 0 to G.z-1 do begin
           V_line[Nr] := format('%s (:,:,%d) = [',[A[Nr],iz+1]) ;
           for ix := 0 to G.x-1 do begin
              for iy := 0 to G.y-1 do with Thread.Cells[ix,iy,iz] do begin
                 V_line[Nr] := V_line[Nr] + FloatToStrF (C[Nr],ffFixed,7,4) + ' ' ;  // langsam, heisst ung. 20 min.
                 //V_line[Nr] := V_line[Nr] + '0.0001 ' ;  // schnell, par Sekündchen
                 if (iy = G.y-1) and (ix < G.x-1) then begin
                    V_line[Nr] := V_line[Nr] + '; ' ;
                 end ;
              end ;
           end ;
           V_line[Nr] := V_line[Nr] + '] ;' ;
           Add (V_line[Nr]) ;
           V_line[Nr] := '' ;
        end ;
        Add ('') ;
    end ;

Die Add Methode... FS ist ein TFileStream:

Delphi-Quellcode:

procedure TMCBasisExport.Add(AText: string);
var
 buf : string ;
begin
     if FS <> nil then begin
         buf := AText+#13#10 ;
         FS.Write(buf[1],length(buf)) ;
     end else begin
         raise exception.Create('Datei kann nich beschrieben werden.');
     end ;end;

An der Add Methode kanns aber meiner Ansicht nach nicht liegen, da die ja auch aufgerufen wird, wenn ich Format weglasse, und direkt einen Wert schreibe.