Frage zu TStringLists

[DeddyH]

Weil ich heute mal meinen sozialen Tag habe:

Delphi-Quellcode:

procedure Hauptform1.Speichern1Click(Sender: TObject);
var Zeilen, Spalten, i, j: Integer;
    Tabelle: TStringList;
begin
  if savedialog.execute then
    begin
      // Stringliste erzeugen
      Tabelle := TStringList.Create;
      try
        Zeilen  :=  stringgrid1.colcount;
        Spalten :=  stringgrid1.rowcount;
        for i := 0 to Zeilen-1 do
          begin
            for j := 0 to Spalten-1 do
              begin
                Tabelle.Add(StringGrid1.Cells[j,i]);
              end;
          end;
        Tabelle.savetoFile(savedialog.filename+'.tab');
      finally
        Tabelle.Free;
      end;
    end;
end;