Opendialog.filename - Problem

[alcaeus]

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