TFileStream/fr
From Free Pascal wiki
Jump to navigationJump to searchThe printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
│
Deutsch (de) │
English (en) │
français (fr) │
polski (pl) │
Description
Un TFileStream est un descendant de TStream qui lit/écrit ses données depuis/vers un fichier sur disque. Un TFileStream charge l'entièreté des données d'un fichier en mémoire, et vice versa.
Constantes de création
Constante | Décimal | Description |
---|---|---|
fmCreate | 65280 | Crée un nouveau fichier |
fmOpenRead | 0 | Ouvre un fichier en lecture |
fmOpenWrite | 1 | Ouvre un fichier en écriture |
fmOpenReadWrite | 2 | Ouvre un fichier en lecture/écriture |
fmShareDenyWrite | 32 | Empêche l'écriture si le fichier est déjà ouvert |
Lecture de données
Lecture du fichier fnam :
function readstream( fnam: string ): string;
var
strm: TFileStream;
n: longint;
txt: string;
begin
txt := '';
strm := TFileStream.Create( fnam, fmOpenRead or fmShareDenyWrite );
try
n := strm.Size;
SetLength( txt, n );
strm.Read( txt[1], n );
finally
FreeAndNil( strm );
end;
result := txt;
end;
Ecriture de données
Ecriture de txt dans le fichier fnam :
procedure writestream( fnam: string; txt: string );
var
strm: TFileStream;
n: longint;
begin
strm := TFileStream.Create( fnam, fmCreate );
n := Length( txt );
try
strm.Position := 0;
strm.Write( txt[1], n );
finally
FreeAndNil( strm );
end;
end;