Hier würde sich die Stringliste anbieten. Bzw. 2 deine Für die Zeilen und eine für die Spalten der Zeile (Trenner
Delphi-Quellcode:
var
sl1, sl2: TStrings;
i, j: integer;
...
begin
try
sl1 := TStringList.Create;
sl2 := TStringList.Create;
sl2.Delimiter := ';';
for i := Low( Array1) to High (Array1) do
sl2.add( Array1[i]);
sl1.add( sl2.DelimitedText);
for j = Low( Array2) to High( Array2) do
begin
sl2.text := '';
for i := Low( Array2[j]) to High (Array2[j]) do
sl2.add( Array2[j][i]);
sl1.add( sl2.DelimitedText);
end;
sl1.SaveToFile( <Dateiname>);
finally
sl2.Free;
sl1.Free;
end;
end;
Der Code ist stark vereinfacht und einfach so hingetippt. Es wird davon ausgegangen, dass im Array Strings sind. Ggf müsste der Inhalt nach String gewandelt werden