ungewollte Folge(OpenDialog)

[Niko]

Bei deiner Lösung fehlt ein begin-end-Block, deshalb bezieht sich der else-Zweig auf die falsche Bedingung.

Delphi-Quellcode:

Procedure TEditor.OEFFNEN;
BEGIN
    OpenDialog.DefaultExt:= 'rtf';
    Repeat

     IF OpenDialog.Execute
     Then
     begin  // !
           If (OpenDialog.FileName<>'') and FileExists(OpenDialog.FileName)
           Then begin
                Neu(OpenDialog.FileName); {Neu: Procedure zum erstellen von einem MDIChild}
                exit; end
     end  // !
     Else Exit;

   Until(MessageDlg('Datei existiert nicht! Andere auswählen?',mtError, [mbYes, mbNo],0)= mrNo)  ;
END;