Hi MrFish,
wie Luckie schon richtig bemerkt hat sollte der Code wirklich nicht im OnClose des OpenDialogs stehn. Dieses Ereignis wird nämlich auch ausgelöst, wenn auf "Abbrechen" geklickt wird. Vielmehr würd ich das ganze im OnClick eines Buttons wie folgt machen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
LoadKW : TStringlist;
i : Integer;
j : Integer;
l : Integer;
test : String;
begin
if OpenDialog1.Execute then
begin
LoadKW := TStringlist.Create;
LoadKW.LoadFromFile(Opendialog1.FileName);
KW.Text := LoadKW[0];
Jahr.Text := LoadKW[1];
l := 2;
for i := 0 to 15 do
begin
for j := 1 to 40 do
begin
StringGrid1.Cells[i,j] := LoadKW[l];
l := l+1;
end;
end;
end;
end;
TOpenDialog.Execute zeigt den OpenDialog an, und liefert true zurück, falls auf "Öffnen" geklickt wurde. So kannst du sicherstellen, dass der Code wirklich nur ausgeführt wird, falls eine Datei ausgewählt wurde.
Greetz
alcaeus