Wenn jemand im Datei-Menü auf "Speichern" klickt
und keine Datei ausgewählt wurde , dann gibt es eine
Exception
Ich hab das mit
if OpenDialog1.FileName <>''
abgefangen , ist aber nicht besonders elegant
Delphi-Quellcode:
procedure TForm1.Speichern1Click(Sender: TObject);
begin
SaveDialog1.Options:= [ofOverwritePrompt];
if OpenDialog1.FileName <>''
then
Clientdataset1.Savetofile(OpenDialog1.FileName)
else
SaveDialog1.Execute
end;
Wie schreibt man das normalerweise ?