savedialog Datentyp

[Zeb22]

hm? Jetzt kann ich nicht mehr Speichern^^

Delphi-Quellcode:

procedure TForm1.DateiSpeichern(verz: String);
begin
   AssignFile(datei, verz);

  if FileExists(verz) then
    reset(datei)
  else
    rewrite(datei);

  if IOResult = 0 then
    write(datei,tw)
  else Raise Exception.Create
  ( 'Fehler' );

end;

Delphi-Quellcode:

procedure TForm1.SpielSpeichern1Click(Sender:TObject);
begin
 if savedialog1.Execute then
  begin
  if SaveDialog1.Execute then
    DateiSpeichern(SaveDialog1.FileName);

   end;
end;

Jetzt kommt gar nicht mehr, vorhin kam immerhin noch das Fenster mit den Ordnern zum abspeichern der Datei, dabei hatte mich dann nur gestört das ich kein Datentyp erzeugen konnte und somit meine Datei nutzlos war.