Difference between revisions of "TFileStream/fr"
From Free Pascal wiki
Jump to navigationJump to search (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...") |
m |
||
| Line 27: | Line 27: | ||
|} | |} | ||
| − | Lecture du fichier ''fnam'' | + | Lecture du fichier ''fnam'' : |
<syntaxhighlight> | <syntaxhighlight> | ||
function readstream( fnam: string ): string; | function readstream( fnam: string ): string; | ||
| Line 48: | Line 48: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | Ecriture de ''txt'' dans le fichier ''fnam'' | + | Ecriture de ''txt'' dans le fichier ''fnam'' : |
<syntaxhighlight> | <syntaxhighlight> | ||
procedure writestream( fnam: string; txt: string ); | procedure writestream( fnam: string; txt: string ); | ||
Revision as of 21:09, 30 August 2017
│
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;