Open Dialog

[eassy]

hallo,

ich habe in meinem programm den standarddialog "topendialog" von delphi
verwendet. nun habe ich das problem, dass ich wenn ich auf den button "abbrechen" bzw. auf button "öffnen" klicke, da aber keine datei
ausgewählt habe, eine fehlermeldung bekomme.

Delphi-Quellcode:

try
  if OpenDialog1.Execute then    { Dialog zum Dateiöffnen anzeigen }
  begin
    AssignFile(Filename, OpenDialog1.FileName);   { Datei ausgewählt }
    Reset(Filename);
  end;
  while not eof(Filename) do 
  begin
    Readln(Filename,s);
  end;

finally
  CloseFile(Filename);
end;

Ich weiss jetzt nicht, wie ich bei finally überprüfen kann, welchen
button ich gedrückt habe und ob ich eine datei ausgewählt habe.

kann mir da jemand helfen?

im voraus schon mal danke.

gruß
eassy

[roderich]

hi Eassy,

mach doch einfach

Delphi-Quellcode:

if not OpenDialog1.Execute then
  exit;

Roderich

[Christian Seehase]

Moin Eassy,

schreib' doch einfach:

Delphi-Quellcode:

if not OpenDialog1.Execute then exit;

Dann wird die Routine einfach verlassen, wenn keine Datei ausgewählt wurde.

[EDIT]
@Roderich: :mrgreen:
[/EDIT]

[Darty]

was passiert wenn er es in ein Try Except Block gesetzt hätte ?

[Christian Seehase]

Moin Darty,

dann wäre der Fehler wohl abgefangen worden.
Aber es wäre keine saubere Struktur.

Wichtig wäre in jedem Falle noch ein try/finally Block, damit die geöffnete Datei in jedem Falle wieder geschlossen wird.

[1adavin]

Delphi-Quellcode:

Mach's do einfach so:


  if OpenDialog1.Execute then    { Dialog zum Dateiöffnen anzeigen } 
  begin 
    AssignFile(Filename, OpenDialog1.FileName);   { Datei ausgewählt } 
    try
       Reset(Filename); 
       while not eof(Filename) do 
       begin 
          Readln(Filename,s); 
       end; 
    finally
       CloseFile(Filename); 
    end;
  end
  else begin
    ShowMessage ('Sie haben keine Datei ausgewählt !');
  end;

[eassy]

danke, für die schnelle hilfe, es funktioniert mit einem zusätzlichen
try...finally block...

gruß
eassy

[Christian Seehase]

Moin 1adavin,

erst einmal herzlich willkommen in der Delphi-PRAXiS.

Mit AssignFile wird nur eine Verbindung zwischen dem Bezeichner (Filename) und dem Pfad der Datei hergestellt, damit Funktionen wie Reset, oder Rewrite "wissen" können, wo die Datei liegt.
Deshalb gehört das try hinter das Rewrite, denn erst hiermit wird eine Resource (in diesem Falle ein Filehandle) belegt.