TFileStream/fr

From Free Pascal wiki
Revision as of 04:53, 1 March 2020 by Trev (talk | contribs) (Fixed syntax highlighting)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

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;

Voir aussi