Frage zum speichern von TXT Dateien

[Date Murphy]

Hi,

ich habe ein Memo in meinem Programm, welches ich als Textdatei

speichern möchte, und zwar einmal mit Speichern Unter und

einmal nur speichern. Zum Speichern Unter verwende ich einen

Speichern Dialog, wenn ich die schon gespeicherte Datei öffne

und nur ein paar Änderungen vornehme, möchte ich diese nur

speichern, das heißt, ich möchte die vorhandene Datei

überschreiben, und nicht erst wieder über den Speichern Dialog

den Pfad und die Datei auswählen.

Hat jemand einen Tipp für mich ?? Danke schon mal.


Gruß Date Murphy :D

[Schaf]

na dann speicher den tsavedialog.filename in einem string, und beim speichern machst du das selbe wie bei speichern unter, aber als dateinamen nicht tsavedialog.filename sondern diesen string ;)

[Lord_Otter]

Und hier das ganze mal mit Code:

var filename:string;

procedure TForm1.Speichern1Click(Sender:TObject);
begin
if filename='' then
SpeichernUnter1Click(Sender)
else
SaveFile(filename);
end;

procedure TForm1.SpeichernUnter1Click(Sender:TObject);
begin
if SaveDialog1.Execute then begin
filename :=SaveDialog1.Filename;
SaveFile(filename);
end;
end;

Ich gehe davon aus, dass der Menüpunkt Speichern Speichern1 und der Menupunkt Speichern Unter SpeichernUnter1 heißt (Standardnamen).
Die Prozedur SaveFile soll die Datei speichern. Als Parameter wird der Name der Datei angegeben.

EDIT:
Ich hatte versehntlich die zweite Prozedur "Speichern1Click" statt "SpeichernUnter1Click" genannt.

[Date Murphy]

Danke euch beiden, werde es mal testen :)

Gruß Date Murphy