. , , .
FindFirst FindNext.
function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
, Path Attr Attr -:
faReadOnly ;
faDirectory ;
faHidden ;
faArchive ;
faSysFile ;
faAnyFile -.
, 0, Windows. F TSearchRec.
function FindNext(var F: TSearchRec): Integer;
, . , FindFirst. 0.
, , :
procedure FindClose(var F: TSearchRec);
' , , .
/ . '- Tstream. Tstream "쳺" , , , . -, . '.
VCL LoadFromstream saveTostream, . ³ , , .
TStream THandleStream
TStream. ³ . .
TStream TObject.
/ (DFM). , .
3. Tstream
property Position: Longint; | |
property Size: Longint; |
, Read Write. ReadBuffer WriteBuffer, ReadComponent WriteComponent. TStream , Read Write .
|
|
constructor Create(AHandle: Integer);
. :
property Handle: Integer;
TFileStream
TFileStream . (. ).
' FileName :
constructor Createfconst FileName: string; Mode: Word);
Mode . ³ :
fmCreate ;
fmOpenRead ;
fmOpenWrite ;
fmOpenReadWrite .
TMemoryStream
TMemoryStream . , . , ' .
property Memory: Pointer;
', . '
procedure SetSize(NewSize: Longint); override;
'
procedure Clear;
/ ' Read Write.
' :
procedure LoadFromFile(const FileName: string); ;
procedure LoadFromStream(Stream: TStream); .
:
procedure SaveToFile(const FileName: string);
procedure SaveToStream(Stream: TStream);
TStringStream
, TStringStream. ³ .
³ 䳺 , , .
property DataString: string;
, .
function Read(var Buffer; Count: Longint): Longint; override;
function Write(const Buffer; Count: Longint): Longint; override;
Buffer.
function ReadString(Count: Longint): string;
count , .
procedure WriteString(const AString: string);
AString, .
.
1. **
2. .***
3. **
4. TStream ThandleStream***
|
|
5. ****
6. TMemoryStream ***
7. TstringStream***
˳:
- .. Delphi 7, .,: -, 2003 . 1152 .
- . ., . . Delphi 7. .: -, 2003. 784 : .
- .. Delphi., - .: , 2005, - 164 .
- .., .., .. '- : . / . ... .: - . .., 2001 320.
- .., .., Delphi . .: , 2005. 496 .