Difference between revisions of "TFileStream/fr"
From Lazarus 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 (Fixed syntax highlighting) |
||
| (3 intermediate revisions by 2 users not shown) | |||
| Line 1: | Line 1: | ||
{{TFileStream}} | {{TFileStream}} | ||
| + | |||
| + | |||
| + | __TOC__ | ||
| + | |||
| + | |||
| + | =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. | 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= | ||
{| class="wikitable sortable" | {| class="wikitable sortable" | ||
| Line 27: | Line 35: | ||
|} | |} | ||
| − | Lecture du fichier ''fnam'' | + | =Lecture de données= |
| − | <syntaxhighlight> | + | |
| + | Lecture du fichier ''fnam'' : | ||
| + | |||
| + | <syntaxhighlight lang=pascal> | ||
function readstream( fnam: string ): string; | function readstream( fnam: string ): string; | ||
var | var | ||
| Line 48: | Line 59: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | Ecriture de ''txt'' dans le fichier ''fnam'' | + | =Ecriture de données= |
| − | <syntaxhighlight> | + | |
| + | Ecriture de ''txt'' dans le fichier ''fnam'' : | ||
| + | |||
| + | <syntaxhighlight lang=pascal> | ||
procedure writestream( fnam: string; txt: string ); | procedure writestream( fnam: string; txt: string ); | ||
var | var | ||
| Line 66: | Line 80: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | + | =Voir aussi= | |
| + | |||
* [[doc:rtl/classes/tfilestream.html|Documentation de TFileStream]] | * [[doc:rtl/classes/tfilestream.html|Documentation de TFileStream]] | ||
* [[doc:rtl/classes/tstream.html|Documentation de TStream]] | * [[doc:rtl/classes/tstream.html|Documentation de TStream]] | ||
| − | |||
| − | |||
| − | |||
Latest revision as of 05:53, 1 March 2020
│
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;
