Ich danke euch nochmal sehr für die geleistete Hilfe!
Folgenden Code nutze ich zum speichern.
Delphi-Quellcode:
procedure TRechner.BtSaveClick(Sender: TObject);
var
fs: TFileStream;
begin
PfadSave;
if EdDir.Text = '' then
begin
end else begin
fs := TFileStream.Create(EdDir.Text+'.ini', fmCreate); //EdDir ist der Speicherpfad + Dateiname
try
SaveStrings(fs, [Memo1.Lines, Memo2.Lines], FILE_SIG);
finally
fs.Free;
end;
Ich habe auch ein SaveDialog eingebaut, dass ohne probleme funkltioniert ALLERDINGS:
Fall 1. Die Datei ist noch nicht vorhanden -> Dateiname wird eingeben -> Speichern ->> klappt.
Fall 1. Die Datei ist vorhanden und soll überschrieben werden -> Datei wird markiert -> Speichern ->> DATEI bist zweimal die gleiche Endung (XX.ini.ini).
Im Savedialog habe ich zudem einen filter auf ini gesetzt (Filtername: .ini" und Filter: *.ini)
Lösungsversuche
1.)Habe mal im dialog den filter oder ein teil des filter rausgehauen, das ergebniss war, dass nun alle dateien angezeigt wurden und das .ini problem beim überschreiben bestand immernoch.
2.) Savedialogfilter nicht verändert (filter auf .ini usw.). In der prozedur den +'.ini' eintrag entfernt. Ergebnis ->> Datei besitz keine endnung
3.) Per if abfrage FileExists(EdDit.Text+'.ini') then DeleteFile(EdDit.Text+'.ini') else... ->> brachte nichts...
Woran kann es liegen?