Speichern in einer externen Textdatei

[danielkussin]

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