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.

zusammenfalten · markieren

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

hi Eassy,

mach doch einfach

markieren

Delphi-Quellcode:

if not OpenDialog1.Execute then
  exit;

Roderich

Moin Eassy,

schreib' doch einfach:

if not OpenDialog1.Execute then exit; Dann wird die Routine einfach verlassen, wenn keine Datei ausgewählt wurde.

[EDIT]
@Roderich:
[/EDIT]

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

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.

zusammenfalten · markieren

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;

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

gruß
eassy

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.