Ich hab mir den Quellcode jetzt einmal angeguckt, und ihn für mich und mein Problem geändert, aber ich hab da noch einige Verständnisfragen!
Delphi-Quellcode:
procedure ArrayInDatei(var dateiname : tFilename);
const
cZeilenZahl = 5;
cSpaltenZahl = 5;
typen
tTextArryay = Array[1..cZeilenZahl,1..cSpaltenZahl] of integer; // Du hattest geschrieben
// Char, ich denk aber, dass das keine Rolle spielen sollte! Oder?
var
TextArray : tTextArray;
x, y : integer;
Zeile : string;
begin
StrList := NIL; // Dateiformat (Zeiger) leeren
try
SetLength(Zeile,cSpaltenZahl); // Definition der neuen Zeile (Format: Länge)
StrList := TStringlist.Create;
for y := 1 to cZeilenZahl do begin
for x := 1 to cSpaltenZahl do
Zeile[x] := TextArray[x,y]; // Durch die beiden for-Schleifen wird das TextArray in die
// String-Variable "Zeile" gespeichert
StrList.Add(Zeile); // Fertige Zeile wird der StrList hinzugefügt
end;
StrList.SaveToFile(dateiname); // Neue Datei wird gespeichert unter Variable: dateiname
finally
StrList.Free
end;
Ich hoffe ich hab das so richtig verstanden. Wenn nicht helf mir bitte noch einmal!
Danke, Daniel