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.