Italian community of Lazarus and Free Pascal

Programmazione => Generale => Topic aperto da: bonmario - Settembre 10, 2024, 02:55:17 pm

Titolo: [RISOLTO]Apertura stream in append
Inserito da: bonmario - Settembre 10, 2024, 02:55:17 pm
Ciao a tutti,
ho un programma, già funzionante, in cui vado a scrivere un file utilizzando un TFileStream.

Fino a ieri, dovevo sempre andare in sovrascrittura, quindi aprivo lo stream così:
Codice: [Seleziona]
Stream:=TFileStream.Create(NomeFileOut, fmCreate);

Oggi, mi hanno chiesto questa modifica: se il file non esiste devo crearlo, se invece esiste, devo andare in "Append"

Ho provato a gestire la cosa tramite una if, mettendo "fmCreate" quando il file non esiste, e "fmOpenWrite" quando invece esiste già, ma il file viene sempre ricreato.

Sto sbagliando io, oppure c'è un bug?

Grazie, Mario
Titolo: Re:Apertura stream in append
Inserito da: bonmario - Settembre 10, 2024, 03:04:34 pm
Come non detto ...
Dopo aver aperto lo stream, se sono in Append, basta fare come prima cosa un bel
Codice: [Seleziona]
Stream.Seek(0, soEnd);

Ciao, Mario
Titolo: Re:[RISOLTO]Apertura stream in append
Inserito da: xinyiman - Settembre 11, 2024, 08:06:27 am
Ottimo, vedo che hai già risolto.