Abfrage vor dem Speichern mit SaveDialog

c4fan · Beiträge: 22

Ich möchte in einer Textdatei mit Savedialog eien Änderung speichern. Anzeigen lasse ich mir das ganze in einem Richedit. Im Menü habe ich Speichern und Speichern unter. Ich möchte lediglich speichern.

Nun meine Frage:
Wie muss sder Quellcode aussehen, wenn ich bei der Datei die ich speichern möchte beim ersten mal wenn ich auf speichern klicke eine Meldung bekomme " Die Datei existiert bereits wollen sie speihern?" Ja Nein Abbrechen ? Bzw wie kann ich das umsetzen. Danach soll die meldung bei dieser Datei nicht mehr kommen.

Moderiert von Tino: Topic aus Windows API verschoben am Sa 28.08.2004 um 10:01

maxk · Verfasst: Fr 27.08.04 18:34

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Speichern1Click(Sender: TObject);
begin
 if not SaveDialog1.Execute then exit;
 if FileExists(SaveDialog1.Filename) and (RichEdit1.Tag=0) then begin
  case MessageDlg('Überschreiben?',mtWarning,[mbYes,mbNo],0) of
   mrYes: RichEdit1.Tag:=1;
   else Exit;
  end;
 end;
 
 RichEdit1.Lines.SaveToFile(SaveDialog1.Filename);

Wie immer ungetestet

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

Ehemaliges Mitglied Erhaltene Danke: 1

Was hat das mit Windows API zu tun? Gehört doch wohl eher nach VCL.

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

c4fan hat folgendes geschrieben:

Wie muss sder Quellcode aussehen, wenn ich bei der Datei die ich speichern möchte beim ersten mal wenn ich auf speichern klicke eine Meldung bekomme " Die Datei existiert bereits wollen sie speihern?" Ja Nein Abbrechen ?

Du kannst beim SaveDialog einstellen ob diese Meldung automatisch erscheinen soll sobald der User einen Datei auswählt die beireits existiert. Schau mal in den Eigenschaften nach.

Gruß
Tino

StefanH · Verfasst: Sa 28.08.04 10:35

das heißt ofOwerWritePrompt unter Options

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme