Mehrere Memos in einer Datei Speichern

[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).

[DeddyH]

Zitat von himitsu:

... die Dateierweiterungsauswahlliste (mir fällt grade der Property-Name nicht ein) ...

Filter?

[himitsu]

Zitat von DeddyH:

Filter?

ähhhh ... joar

[Portfreak]

Danke, aber im Filter des Savedialogs hatte ich schon die ini als filter angeben, bzw. ist es immer noch, allerdings fehlt dann beim speichern wenn EdDit.Text+'.ini' nicht mehr vorhanden ist. So wie es Bummi gelöst hat klappt es 1a, und ohne komplikationen