Try Except Problem

[jaenicke]

Wenn das Laden fehlschlägt, sollte der Pfad sicherlich auch nicht angezeigt werden:

Delphi-Quellcode:

procedure TForm1.OpenDialog1BitBtnClick(Sender: TObject);
begin
  {$BOOLEVAL OFF}
  if OpenDialog1.Execute and LoadFile(OpenDialog1.Filename) then
    Edit1.Caption := OpenDialog1.FileName;
end;