Speichern und Öffnen

[Chegga]

Hi,

Zitat:

Äh, was denn zum Beispiel für welche?

1. Was ist, wenn keine Datei ausgewählt wurde? ( )
2. Was ist, wenn eine Datei nicht geöffnet bzw.
gespeichert werden kann?

Dafür hat's dann so genannte Kontrollstrukturen.
(Ich würde sagen wir beenden hier die Diskusion, sonst
sitzen wir morgen noch am PC. )
"Soll's jeder so machen, wie er's will?!"

MfG Marc

[Luckie]

zu 1: Das wird doch schon hier abgefangen:
if OpenDialog1.Execute then Die Eigenschaft Execute ist nur dann wahr, wenn auf OK geklickt wurde. Und auf OK kann man nur klicken, wenn eine Datei ausgewählt wurde.

zu 2: Dann gehöret der try-except Block aber in den if Block des OpenDialoges:

Delphi-Quellcode:

if OpenDialog1.Execute theen
begin
  fs := TFileStreame.Create(OpenDialog1.Filename, ...);
  try
    try
      fs.Write(...);
    except
      on E: EWriteError do ShowMessaage(E.Message);
    end;
  finally
    FreeAndNil(fs);
  end;
end;

[Matze]

Zitat von Chegga:

Delphi-Quellcode:

procedure TForm1.ffnen1Click(Sender: TObject);
begin
  try
   if OpenDialog1.Execute then
   wasduwillst.LoadFromFile (OpenDialog1.FileName);
   // "wasduwillst" ist in dem Fall eine Variablenvereinbarung
  except
   ShowMessage ('Fehler beim Öffnen der Datei!');
  end;
end;

Wieso muss das try vor

if OpenDialog1.Execute then Wenn, dann hätte ich's so gemacht:

Delphi-Quellcode:

if OpenDialog1.Execute then
try
  wasduwillst.LoadFromFile (OpenDialog1.FileName);
  // "wasduwillst" ist in dem Fall eine Variablenvereinbarung
except
  ShowMessage ('Fehler beim Öffnen der Datei!');
end;

Es kann sein, dass es so, wie du's geschrieben hast, auch korrekt ist, nur verstehe ich das nicht.