OpenDialog --> Abbrechen

[Tpercon]

Mal schnell umgeschrieben:

Delphi-Quellcode:

  begin
    l:= TStringList.Create;
    try
      begin
        if OpenDialog.Execute then begin
          filename := OpenDialog.FileName;
          l.LoadFromFile(filename);
          Label1.Caption := filename; // Hier steht das Programm nach der Fehlermeldung...
        end;
      end;
...
    finally
      l.Free;
    end
  end;