OpenDialog --> Abbrechen

[flomei]

Hallo!
Ich habe in meinem Programm einen OpenDialog. Das öffnen der Dateien funktioniert auch ganz gut aber wenn man auf Abbrechen klickt erhalte ich eine unschöne Fehlermeldung ala 'Cannot open file ""'
Was kann man dagegen machen?

Habe folgendes probiert:

Delphi-Quellcode:

  begin
    l:= TStringList.Create;
    try
      begin
        OpenDialog.Execute;
        filename := OpenDialog.FileName;
        l.LoadFromFile(filename);
        Label1.Caption := filename; // Hier steht das Programm nach der Fehlermeldung...
      end
    except
        showmessage('Fehler aufgetreten! Evtl. Keine Datei ausgewählt!');
    end
  end;

Hab keine Ahnung wie man das abfangen könnte...

Dank im Vorraus!

MfG Florian

[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;

[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;

[HomerGER]

mal mit
if filename <> '' then
.....

versucht

[Robert_G]

[Tpercon]

Zitat von HomerGER:

mal mit
if filename <> '' then
.....

versucht

Nur die Frage basiert ja darauf, dass er nicht wußte, wie er den Abbrechen Button mit einbezieht (abfängt). Du verlagerst das Problem nur.

[Robert_G]

@Tpercon
Der kam genau hier "l.LoadFromFile(filename);" - LoadFromGarNix funktioniert nicht so gut.

[flomei]

Hab da von George genommen und es klappt prima! DANKE!

MfG Florian

[HomerGER]

wieso fehler
tritt denn ein fehler auf wenn ich auf ein Abbrechen Button drücke
ich denke doch nein
wenn einer bei mir im programm beim open dialog auf den button drückt passiert nix - nur ABBRECHEN - das bedeutet doch führe keine aktion durch oder sorry doch lieber nicht
also auch kein Fehler

[Tpercon]

Genau filename ist leer / kein korrekter Pfad. Und warum? Da der OpenDialog mit Abbrechen beendet wurde ist diese Anweisung filename := OpenDialog.FileName; schon unsinnig. Daher würde ich auf das erfolgreiche execute abfragen!