TFileStream/fr

From Lazarus wiki
Revision as of 20:08, 30 August 2017 by Alcatiz (talk | contribs) (Created page with "{{TFileStream}} 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 d...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

Deutsch (de) English (en) français (fr) polski (pl)

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.

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 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 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;

Voir aussi