Mehrere Memos in einer Datei Speichern

[Portfreak]

Vielen dank für die kompetente hilfe!!!
Thread kann geschlossen werden!

[Portfreak]

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?

[Bummi]

    ChangeFileExt(EdDir.Text,'.ini')

[Portfreak]

Danke!

Aber entweder setze ich es an die falsche stelle oder es klappt nicht .

Also beim Auswählen der Datei, nimmt EdDir nicht nur den Dateipfad auf sondern auch Dateiname.Dateiendun (C:\test.ini).
D.h. Die procedure erkennt nicht dass dort ein .ini bereits vorhanden ist und hängt noch ein dran (C:\test.ini.ini).
Folglich bringt ein Delete nichts da beim markieren der pfad + endung ebenfalls an EdDir gegeben wird.

Kusios...

[Bummi]

   Showmessage( ChangeFileExt('C:\test\test.ini','.ini') +#13#10 + ChangeFileExt('C:\test\test.txt','.ini') +#13#10 + ChangeFileExt('C:\test\test','.ini'));

EDIT
fs := TFileStream.Create(ChangeFileExt(EdDir.Text,'.ini'), fmCreate)

[Portfreak]

Fertig DANKESCHÖN!!

[himitsu]

Zitat:

EdDir.Text+'.ini'

Nein, besser ist es DefaultExt des Save-Dialogs auf .ini zu setzen und natürlich die Dateierweiterungsauswahlliste (mir fällt grade der Property-Name nicht ein) mit .ini ausgefüllt zu haben (und eventuell dieses +'.ini' wegzulassen, egals in welcher Weise es eingefügt wird).