Difference between revisions of "TFileStream"
From Free Pascal wiki
Jump to navigationJump to search| Line 28: | Line 28: | ||
|} | |} | ||
| − | + | read from file ''fnam''. | |
<syntaxhighlight> | <syntaxhighlight> | ||
| − | |||
function readstream( fnam: string ): string; | function readstream( fnam: string ): string; | ||
var | var | ||
| Line 46: | Line 45: | ||
result := txt; | result := txt; | ||
end; | end; | ||
| + | </syntaxhighlight> | ||
| − | + | Write ''txt'' to file fnam. | |
| + | <syntaxhighlight> | ||
procedure writestream( fnam: string; txt: string ); | procedure writestream( fnam: string; txt: string ); | ||
var | var | ||
| Line 62: | Line 63: | ||
end; | end; | ||
end; | end; | ||
| − | |||
</syntaxhighlight> | </syntaxhighlight> | ||
[[Category:Tutorials]] | [[Category:Tutorials]] | ||
{{AutoCategory}} | {{AutoCategory}} | ||
Revision as of 00:53, 26 August 2016
│
Deutsch (de) │
English (en) │
français (fr) │
polski (pl) │
A TFileStream is a descendant of TStream that get its data from a file on disk. A TFileStream reads entire file data into memory.
| Constant | Decimal | Description |
|---|---|---|
| fmCreate | 65280 | Creates a new file |
| fmOpenRead | 0 | opens a file for reading |
| fmOpenWrite | 1 | opens a file for writing |
| fmOpenReadWrite | 2 | opens a file for reading and writing |
| fmShareDenyWrite | 32 | prohibit writing if file is already opened |
read from file fnam.
function readstream( fnam: string ): string;
var
strm: TFileStream;
txt: string;
begin
txt := '';
strm := TFileStream.Create( fnam, fmOpenRead or fmShareDenyWrite );
try
SetLength( txt, strm.Size );
dat.Read( txt[1], strm.Size );
finally
FreeAndNil( strm );
end;
result := txt;
end;Write txt to file 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;
