Hilfe fürs schreiben in Dateien

[Ronny Grabo]

StringList Variante als Quellcode ( zum Speichern des StringGrids) :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,b:integer;
   strtmp:string;
   strlst:TStringList;
   begin
strlst:=TStringlist.Create;
For i:=1 to StringGrid1.RowCount do
    begin
    for b:=1 to StringGrid1.ColCount do
        begin
        strtmp:=strtmp+';'+StringGrid1.Cells[b,i];
        end;
        strlst.Add(strtmp);
        strtmp:='';
    end;
strlst.SaveToFile('test');
strlst.Free;
end;

Gruß Ronny.