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.

markieren

Code:

			if SaveDialog1.Execute then

             theStringList.savetofile(SaveDialog1.Filename);

             MessageDlg('Die Kundendatenbank wurde erfolgreich exportiert!', mtInformation,

             [mbOK],0);

         end;

**v2afrank**

Es fehlt ein Begin

markieren

Delphi-Quellcode:

			if SaveDialog1.Execute then

          begin

              theStringList.savetofile(SaveDialog1.Filename);

              MessageDlg('Die Kundendatenbank wurde erfolgreich exportiert!', mtInformation,

              [mbOK],0);

          end;

**Bummi**

markieren

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

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Messagebox soll nur erscheinen, wenn datei gespeichert wurde

Messagebox soll nur erscheinen, wenn datei gespeichert wurde

AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde

AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde

AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde

AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde

AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde

AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde

Forumregeln

v2afrank Registriert seit: 9. Mai 2005 Ort: Bocholt 571 Beiträge Delphi XE2 Professional	#2 AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde 12. Apr 2012, 12:32 Es fehlt ein Begin markieren Delphi-Quellcode: if SaveDialog1.Execute then begin theStringList.savetofile(SaveDialog1.Filename); MessageDlg('Die Kundendatenbank wurde erfolgreich exportiert!', mtInformation, [mbOK],0); end;
	Zitat

m-werk Registriert seit: 14. Jun 2002 215 Beiträge Delphi 2009 Architect	#4 AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde 12. Apr 2012, 12:44 Ups, DANKE Grüße, m-werk
	Zitat

p80286 Registriert seit: 28. Apr 2008 Ort: Stolberg (Rhl) 6.659 Beiträge FreePascal / Lazarus	#5 AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde 12. Apr 2012, 13:11 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 Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen R.E.D retired error detector
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.537 Beiträge Delphi 11 Alexandria	#6 AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde 12. Apr 2012, 13:16 Wenn der Dialog abgebrochen wird, gibt Execute false zurück Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

p80286 Registriert seit: 28. Apr 2008 Ort: Stolberg (Rhl) 6.659 Beiträge FreePascal / Lazarus	#7 AW: Messagebox soll nur erscheinen, wenn datei gespeichert wurde 12. Apr 2012, 13:28 Oh war mir nicht sicher! Danke. Gruß K-H Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen R.E.D retired error detector
	Zitat