Hilfe: Wie fragen, ob man speichern will?

[craash]

hi,

ich hab das in einem kleinen netzwerkchat mal so gelöst

Delphi-Quellcode:

procedure speichern;
begin
     if
       form1.savedialog1.execute   //auf form1 liegt eine TSaveDialog-Komponente
     then
         try
            form1.mem1.lines.savetofile(form1.savedialog1.filename);
         except
            showmessage('Fehler beim Speichern des Verlaufs!');
     end;
end;


[...]
if mem1.lines.text <> ''  //der chatverlauf wird in einem memo angezeigt
     then
         if messagedlg('Achtung! Sie sind im Begriff das Programm zu verlassen. Wollen sie den Chatverlauf zuvor speichern?', mtwarning, [mbyes, mbno], 0) = mryes
         then
           begin
             speichern;   //procedure speichern aufrufen
             close;
           end
         else close
else close;

ist evtl etwas umständlich aber ich hoffe es hilft dir


mfg