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.