Hi alle zusammen,
Ich will eine Öffnen-Procedure haben, die eine Fehlermeldung beim öffnen einer nicht existierenden Datei ausgibt und dann in den OpenDialog zurückkehrt. Dass funktioniert auch soweit, DOCH wenn man im OpenDialog auf ABBRECHEN geht kommt die Fehlermeldung auch! Ich habe keine Idee, wie ich dass umgehe. Ihr vielleicht?
?
Delphi-Quellcode:
Procedure TEditor.OEFFNEN;
BEGIN
OpenDialog.DefaultExt:= 'rtf';
Repeat
IF OpenDialog.Execute
Then
If (OpenDialog.FileName<>'') and FileExists(OpenDialog.FileName)
Then begin
Neu(OpenDialog.FileName); {Neu: Procedure zum erstellen von einem MDIChild}
exit; end
Else Exit;
Until(MessageDlg('Datei existiert nicht! Andere auswählen?',mtError, [mbYes, mbNo],0)= mrNo) ;
END;
Danke im Vorraus!
!