TfileStream
9. TMemoryStream
- . Delphi :
1) ;
2) ;
3) .
, :
$0D -
$0 - . . . - , . , .
, . Text TextFile. , :
Var F:Text;
- Input Output. . , , Input, - Output.
. /.
, 䳿:
1. .
2. AssignFile ' .
3.³ Append, Reset, Rewrite.
4. . , , .
5. CloseFile.
:
Procedure AssignFile(var F, FileName:String); - F FileName. , ;
Procedure Append(var F:Text); - . , , -. , , Try, - {$1-}. ϳ Function IOError:Integer; . - {$1+}. ', IOError . - ;
Procedure ReWrite (var f: Text); - . , , ;
|
|
Procedure Reset(var f: Text); - ;
Procedure Read(var f.Text; ); - . , , . ;
Procedure ReadLn(var f:Text; ); - ' , ;
Procedure Write(var f: Text; ); - . , , . , ;
Procedure WriteLn(var f:Text; ); - , ' - ;
Procedure CloseFile(var f:Text); - . ( ). ;
Function Eof(var f:Text):boolean; - . , ;
Function Eoln(var f:Text) -.boolean; - , ;
Function SeekEoln(var f:Text):boolean; - . ( $09);
Function SeekEof(var f:Text):boolean; - . ;
Procedure Flush(var f:Text); - . , , ' .
.
...
var F: TextFile;
S: string;
begin
if OpenDlg.Execute
then AssignFiie(F, OpenDlg.FileName)
else Exit; Reset(F);
while Not EOF(F) do
begin
Readln(F, S);
Memo.Lines.Add(S);
end;
CloseFile(F);
end;
...
OpenDlg , ' ' F AssignFiie. ' ' ( ). TOpenDialog, TOpenPictureDiaiog. Reset .
TMemo. Readin . , EOF .
ϳ .
. .
|
|
/ .
³ .
procedure Reset(var F: File [; RecSize: Word ]);
, .
procedure Append(var F: Text);
, .
procedure Rewrite(var F: File [; RecSize: Word ]);
, . ' , . RecSize , , . , RecSize 128 .
ҳ - , . , :
Type Tz=Record
Fio:String[40];
VozrByte;
End;
Var f:file of Tz;
42 . . , , In.
procedure Seek(var F; N: Longint);
N . ( , ).
/ (). , , .
, . (Reset, Rewrite). BlockRead BlockWrite.
Read :
procedure Read([var F: Text;] VI [, V2...,Vn]); - ;
procedure Read(F, V1 [, V2...,Vn]); - .
. , . , . ϳ . Read , .
procedure Readln([ var F: Text; ] VI [, V2...,Vn ]);
. vi..vn, .
write writeln :
procedure Write([var F: Text; ] PI [, P2..., Pn]);
procedure Writeln([ var F: Text; ] PI [, P2...,Pn ]);
P1, P2..., Pn , .
Read write F . /.
. EOF(F) True, . EOLN(F) . , .
|
|
:
Procedure Seek(var f; n:LongInt); - n- . ;
Function FileSize(var f):LongInt; - ;
Function FilePos(var f):LongInt; - ;
Procedure Truncate(var J); - , , .
, , , :
Var F:file;
ֳ . 128 .
, , . , Double (8 ), 8, 16, 24, 32 :
...
var F: File;
DoubleArray: array [0..255] of Double;
Transfered: Integer;
begin
if OpenDlg.Execute then AssignFile(F, OpenDlg.FileName) else Exit;
Reset(F, 64);
BlockRead(F, DoubleArray, 32, Transferee!);
CloseFile(F);
ShowMessage('˳ '+IntToStr(Transfered)+' ');
end;
...
, Reset DoubleArray, . Transfered . BlockRead , , Transfered .
procedure BlockRead(var F: File; var Buf; Count: Integer
[; var AmtTransferred: Integer]);
procedure BlockWrite(var f: File; var Buf; Count: Integer
[; var AmtTransferred: Integer]);
.
. F , , ' .
Buf - (, , , ), . Count . , ' AmtTransferred .
:
Procedure ReWrite(var f:file[;RecSize: word]); - , RecSize - ;
Procedure Reset (var f:file [;RecSize:Word]); - , RecSize - ;
Procedure BlockRead(var f:file; var Buf; Count:Integer[;var Result:Integer]); - f - Buf. Count - , , Result - , ;
Procedure BlockWrite(var f:file; var Buf; Count:Integer [; var Result:Integer ]); - f Buf. Count - , , Result - , ;
Function FileSizefvar ffile)-.Integer; - f.
:
Function DiskSize(Drive: Byte): Int64; - . Drive : 0 - , 1 - , 2 - ..;
Function DiskFree(Drive: Byte): Int64; - ;
Procedure ChDir(const S: string); overload; - , ChDir( C:\My\);
|
|
Procedure RmDir(const S: string);overload; - ;
Procedure MkDir (const S: string); overload; - ;
Procedure GetDir(D: Byte; var S: string); - D;
Procedure Rename(var F; Newname: string); - , ' F, ' Newname;
Procedure Erase(var F); - , ' F;
Function DirectoryExists(const Directory: string): Boolean; - . , - True;
Function FileExists(const FileName: string): Boolean; - ' FileName;
Function FileSearch(const Name, DirList: string): string; - Name DirList;