TStringGrideinträge in Ini-Datei speichern

[SaFu]

Hiermit Kannst du sämtliche Spallten und zeilen Speichern

Delphi-Quellcode:

procedure TForm7.Button2Click(Sender: TObject);
var Sl:TStringlist;
    x,y:integer;
    fn: TFileName;
begin
  fn:= (Datei);  
  Sl:=TStringlist.Create;
  Sl.Add(IntToStr(StringGrid1.Colcount));
  Sl.Add(IntToStr(StringGrid1.Rowcount));
for x:=0 to StringGrid1.ColCount-1 do
for y:=0 to StringGrid1.RowCount-1 do
  Sl.Add(StringGrid1.Cells[x,y]);
for x:=0 to StringGrid1.ColCount-1 do
  Sl.Add(IntToStr(StringGrid1.ColWidths[x]));
for x:=0 to StringGrid1.RowCount-1 do
  Sl.Add(IntToStr(StringGrid1.RowHeights[x]));
  Sl.Add(IntToStr(StringGrid1.Clientwidth));
  Sl.Add(IntToStr(StringGrid1.Clientheight));
  Sl.Add(IntToStr(Ord(StringGrid1.ScrollBars)));
  Sl.Savetofile(Datei);  
  Sl.Free;
  Showmessage(Datei);  
end;

Hoffe es Klappt und ist das was du suchst