Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: savedialog Datentyp

    Delphi
    by Zeb22, 22. Mär 2009
  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.
• Forum: Sonstige Fragen zu Delphi

  Re: savedialog Datentyp

    Delphi
    by Zeb22, 21. Mär 2009
  Weiß ich nicht, kam mit der Zeit, als ich diese Frage hier ins Form stellte hatte ich es noch nicht doppelt :)
  
  
  procedure TForm1.SpielSpeichern1Click(Sender:TObject);
  begin
  if SaveDialog1.Execute
  then
  DateiSpeichern(SaveDialog1.FileName);
  try DateiSpeichern except dateiErstellen; DateiSpeichern; // Fehler
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: savedialog Datentyp

    Delphi
    by Zeb22, 21. Mär 2009
  hm? Jetzt kann ich nicht mehr Speichern^^
  
  
  procedure TForm1.DateiSpeichern(verz: String);
  begin
  AssignFile(datei, verz);
  
  if FileExists(verz) then
  reset(datei)
  else
• Forum: Sonstige Fragen zu Delphi

  Re: savedialog Datentyp

    Delphi
    by Zeb22, 21. Mär 2009
  procedure TForm1.DateiSpeichern(verz: String);
  begin
  AssignFile(datei, verz);
  
  if FileExists(verz) then
  reset(datei)
  else
  rewrite(datei);
  
  if IOResult = 0 then
• Forum: Sonstige Fragen zu Delphi

  Re: savedialog Datentyp

    Delphi
    by Zeb22, 21. Mär 2009
  procedure TForm1.SpielSpeichern1Click(FileName: string);
  begin
  if savedialog1.Execute = true then
  begin
  verz := savedialog1.FileName;
  try DateiSpeichern except dateiErstellen; DateiSpeichern; //Fehler
  end;
  end;
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: savedialog Datentyp

    Delphi
    by Zeb22, 21. Mär 2009
  procedure TForm1.dateiSpeichern(datei : String);
  begin
  AssignFile(datei, verz);
  
  if FileExists(datei) then
  reset(datei)
  else
  rewrite(datei);
  
  if IOResult = 0 then
• Forum: Sonstige Fragen zu Delphi

  Re: savedialog Datentyp

    Delphi
    by Zeb22, 21. Mär 2009
  if FileExits(datei, verz); wird bei mir als Fehler angezeigt. Gibt es FileExits überhaupt?
• Forum: Sonstige Fragen zu Delphi

  savedialog Datentyp

    Delphi
    by Zeb22, 21. Mär 2009
  Moin
  
  Ich hab mir da son Dame Spiel programmiert, alle 24 Steine in ein Array gespeichert und jetzt möchte ich im laufenden Spiel dem Nutzer die Möglichkeit geben, dass er zum 1. Das Spiel speichern kann und 2. Ein Spiel öffnen kann.
  
  Dazu habe ich dann folgendes geschrieben.
  
  
  
  
  procedure TForm1.dateiErstellen;