StrinGrid (goRowSelect) zelleneintrag in ein form laden

[Neo2084]

Hallo,

ich hab meine einfügungen mit //neu markiert :

Delphi-Quellcode:

procedure TFormHaupt.Oeffnen1Click(Sender: TObject);
var
  F: TStringList;
  i: Integer;
begin
  F := TStringList.Create;
  try
    if OpenDialog1.Execute then
    begin // neu
      F.LoadFromFile(OpenDialog1.FileName);
      StringGrid1.RowCount := StrToInt(F[0]);
      StringGrid1.ColCount := StrToInt(F[1]);
      for i := 0 to (StringGrid1.RowCount - 1) do
        StringGrid1.Rows[i].CommaText := F[i + 2];
    end; //neu
  finally
    F.Free;
  end;
end;

Wenn du kein beginn/end verwendest, wird nur die nächste Quelltextzeile (F.LoadFromFile(OpenDialog1.FileName) mit der IF-Bedingung verknüpft.
In deinem Fall wird also bei Abbruch des Dialoges mit der Zeile

Code:

StringGrid1.RowCount := StrToInt(F[0]);

fortgefahren und da ja nichts in die Stringlist geladen wurde, gibt es dann halt "mecker"

Und noch was :
Warum kann ich dein Hauptfenster nicht verschieben, verkleinern etc. ??

Gruß Neo