savedialog Datentyp

[mr_emre_d]

Raise Exception.Create( 'Fehler' );

MfG

[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.

[Meflin]

Wieso hast du das SaveDialog.Execute doppelt drin?!

[mr_emre_d]

Warum hast du CloseFile weggelöscht ?

Was macht denn CloseFile ?

[Zeb22]

Weiß ich nicht, kam mit der Zeit, als ich diese Frage hier ins Form stellte hatte ich es noch nicht doppelt

Delphi-Quellcode:

procedure TForm1.SpielSpeichern1Click(Sender:TObject);
begin
  if SaveDialog1.Execute
  then
    DateiSpeichern(SaveDialog1.FileName);
    try DateiSpeichern except dateiErstellen; DateiSpeichern; // Fehler
    end;
end;
end;

Und wenn ich das so mache kommen Fehler..

[Error] StoffersUnit1.pas(229): Not enough actual parameters


File ist anderes Wort für Datei

CloseFile schließt dann sozusagen die Datei?

[mr_emre_d]

und somit wäre die datei gespeichert

[mkinzler]

Dein Problem scheint zu sein, dass du die Antworten hier abpinselst ohne sie zu verstehen.

Delphi-Quellcode:

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

Und die Abfage, ob die Datei schon existiert, würde ich mit if not FileExists() machen.
Da andere wäre wie Fahren nach Gehör ( Gas bis es einen Schlag lääst und dann Wenden)

[Zeb22]

Das Stimmt, einige Zeile verstehe ich zwar aber das große und ganze dahinter noch nicht. Ich muss mich damit genauer auseinander setzen. Ich Versuche jetzt Mal alle Beiträge die hier Abgegeben wurden sind zusammen zu fügen.