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