StringGrid speichern/laden

[Chris1986]

Hi glkgereon,
ich denke mal das der Fehler mit Col und row-count zusammen hängt. Ich hab dem Code mal Kommentare hinzugefügt:
[quote="glkgereon"]moin

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var dialog:TOpenDialog;
    t:TStringList;
    cols,rows, i, j:integer;
begin
  dialog:=TOpenDialog.Create(Form1);
  t:=TStringList.Create;
  if dialog.Execute then
    begin
    t.LoadFromFile(dialog.FileName);
    rows:=strtoint(t[0]);
    t.Delete(0);
    cols:=strtoint(t[0]);
    t.Delete(0);
    StringGrid1.ColCount:=cols;  //probier mal: StringGrid1.ColCount:=cols+1;
    StringGrid1.RowCount:=rows;  //probier mal: StringGrid1.ColCount:=rows+1;
    for i:=0 to rows do
      for j:=0 to cols do
        StringGrid1.Cells[j,i]:=t[j*i+i];
    end;
  dialog.Free;
  t.Free;

quote]

Bin gespannt ob's klappt 8)

MfG
Christian