stringgrid als Textdatei speichern

[Klaus01]

Hallo,

es könnte auch so gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Word;
  fileStream : TFileStream;
begin
  if saveDialog1.execute then
    begin
      fileStream := TFileStream.Create(saveDialog1.FileName,fmCreate);
      try
        for i:=0 to stringGrid1.RowCount -1 do
          begin
            stringGrid1.Rows[i].SaveToStream(fileStream);
          end;
      finally
        fileStream.Free;
      end;
    end;
end;

Grüße
Klaus