TFileStream/fr

From Lazarus wiki

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



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;

Voir aussi