Problem mit TOpenDialog

[Fredyy]

Hi,
ich ahbe ein Problem nur weiß ich nicht wie ich es beheben kann.

mein code:

Delphi-Quellcode:

      OpenDialog1.DefaultExt := 'dat';
      OpenDialog1.Filter := 'Data File (*.dat)|*.dat';
      OpenDialog1.Options := [ofHideReadOnly,ofFileMustExist,ofEnableSizing];
      OpenDialog1.Execute;
      Memo1.Lines.LoadFromFile(OpenDialog1.Files[0]);
      Memo2.Lines.LoadFromFile(OpenDialog1.Files[0]);

Es funktioniert gut nur wenn im opendialog auf abrechen oder des [x] klickt bekomme ich einen fehler mit welche abfrage kann ich so etwas abfangen?.

wäre euch sehr dank bar wenn ihc mir helfen könntet.

bye
Fredyy

[Loki77]

Also ich schreibe immer

Delphi-Quellcode:

if OpenDialog.Execute then
....

Klappt eigentlich Fehlerfrei.

[fkerber]

Hi!

Mach es so:

Delphi-Quellcode:

if OpenDialog1.Execute then
 //wird nur ausgeführt, wenn mit ok (= Datei ausgewählt) geschlossen

Ciao Frederic

[s-off]

Hallo,

schreibst Du:

Delphi-Quellcode:

      OpenDialog1.DefaultExt := 'dat';
      OpenDialog1.Filter := 'Data File (*.dat)|*.dat';
      OpenDialog1.Options := [ofHideReadOnly,ofFileMustExist,ofEnableSizing];
      

      if OpenDialog1.Execute then begin
         Memo1.Lines.LoadFromFile(OpenDialog1.Files[0]);
         Memo2.Lines.LoadFromFile(OpenDialog1.Files[0]);
      end;

[Fredyy]

danke für die schnellen antworten.

war schon am überlegen wie ich das mit
OpenDialog1.Files[0] oder so amchen sollte.

aber es funzt

danke

bye
FRedyy

[F.W.]

Zusatz:
Wenn es sich nur um eine Datei handelt kannst du statt Files[0] auch FileName verwenden!