Messagebox soll nur erscheinen, wenn datei gespeichert wurde

[m-werk]

Hallo,

ich hab schon wieder eine Frage zur Positionierung meiner Message Box.

Wenn ich den SaveDialog abbreche, kommt trotzdem meine Messagebox. Diese soll aber nur erscheinen, wenn ich die Datei gespeichert habe.

Code:

if SaveDialog1.Execute then
             theStringList.savetofile(SaveDialog1.Filename);
             MessageDlg('Die Kundendatenbank wurde erfolgreich exportiert!', mtInformation,
             [mbOK],0);
         end;

[v2afrank]

Es fehlt ein Begin

Delphi-Quellcode:

if SaveDialog1.Execute then
          begin
              theStringList.savetofile(SaveDialog1.Filename);
              MessageDlg('Die Kundendatenbank wurde erfolgreich exportiert!', mtInformation,
              [mbOK],0);
          end;

[Bummi]

Delphi-Quellcode:

if SaveDialog1.Execute then
     begin        
             theStringList.savetofile(SaveDialog1.Filename);
             MessageDlg('Die Kundendatenbank wurde erfolgreich exportiert!', mtInformation, [mbOK],0);
     end;

[m-werk]

Ups, DANKE

[p80286]

ggf. solltest du SaveDialog1.Filename auf einen gültigen Dateinamen überprüfen.
Wenn der Sicherungsdialog abgebrochen wurde steht doch bestimmt ein einsprechender Vorgabewert darin?

Gruß
K-H

[DeddyH]

Wenn der Dialog abgebrochen wird, gibt Execute false zurück ;)

[p80286]

Oh war mir nicht sicher!
Danke.

Gruß
K-H