Save Dialog

[Razor90]

Hallo...ich weill in meinem Programm eine Datei speichern...dazu nutze ich den Save Dialog. Wenn ich diesen (saveDialog/ Speichern) im Programm öffne und mich entscheide nicht zu speicher, also in dem Ordnerfenster von Windows auf ABBRECHEN drücke und nich auf okay, dann wird ein Fehler ausgegeben-->Ungültiges numerisches Fprmat. Wie kann ich diesen Fehler beheben, sodass keine Fehlermeldung erscheint? Danke

mfg

[DeddyH]

Wie sieht der Code denn aus? TSaveDialog.Execute ist eine Funktion und gibt Dir zurück, ob OK oder Abbrechen geklickt wurde.

[Razor90]

Delphi-Quellcode:

procedure TForm1.Speichern1Click(Sender: TObject);
var  a:integer;
     T:Textfile;
     dtn:string;

begin
 saveDialog1.Execute;
 dtn := (saveDialog1.Filename);
 Assignfile(T,dtn);
 Rewrite(T);
 a:=0;
 writeln(T,aa);
 repeat
 a:=a+1;
 writeln(T,person[a].Name);
 writeln(T,person[a].Vorname);
 writeln(T,person[a].Geschlecht);
 writeln(T,person[a].Alter);
 writeln(T,person[a].Beruf);
 writeln(T,person[a].Hobby);
 writeln(T,person[a].Kartei);
 until a=aa;
 closefile(T);
 end;

So sieht der Code jetzt aus...allerdings weiß ich nicht wo ich hier eine antwort bekomme.

[Valle]

Delphi-Quellcode:

if saveDialog1.Execute then
  [...]
else
  // Abbrechen wurde gedrueckt.

Mit freundlichen Grüßen,

Valle

[mkinzler]

Delphi-Quellcode:

if saveDialog1.Execute then ... 
                       else // abgebrochen

[taaktaak]

Moin, Moin,
zwei ungünstige Sachen:

1. ...

ein anderer war schneller, aber

2. das FileIO sollte unbedingt Fehler abfangen, typischerweise wird rewrite() von {$I-} und {$I+} umrahmt, danach auf if IOresult=0 then geprüft... Schau mal in die Hilfe

[SirThornberry]

Zitat:

So sieht der Code jetzt aus...allerdings weiß ich nicht wo ich hier eine antwort bekomme.

Lies in so einem Fall bzw. generell einfach die Hilfe zu den Methoden. :-) Dafür ist diese da, damit man sieht welche Parameter eine Funktion erwartet und was sie zurück gibt.