Daten aus einem StringGrid in einer Datei speichern

[marabu]

Das zugrundeliegende Problem wurde zwar schon in einem Parallel-Thread gelöst, aber weil der Titel hier so schön ist - ein 5-Zeiler zum Speichern als CSV-Datei:

Delphi-Quellcode:

procedure SaveGrid(grid: TStringGrid; fileName: string);
var
  iRow: integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  for iRow := 0 to Grid.RowCount - 1 do
    sl.Add(Grid.Rows[iRow].CommaText);
  sl.SaveToFile(fileName);
  sl.Free;
end;

Grüße vom marabu