OpenDialog --> Abbrechen

[Robert_G]

Das dürfte auch gehen.

Delphi-Quellcode:

  If Not OpenDialog.Execute Then Exit; //Wenn User nicht auf OK drückt => Exit

  Try
    l := TStringList.Create;
    filename := OpenDialog.FileName;
    l.LoadFromFile(filename);
    Label1.Caption := filename; // Hier steht das Programm nach der Fehlermeldung...
  Except
    l.Free;
    showmessage('Fehler aufgetreten!');
  End;