.


:




:

































 

 

 

 


.




. , , .

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***

 

˳:

  1. .. Delphi 7, .,: -, 2003 . 1152 .
  2. . ., . . Delphi 7. .: -, 2003. 784 : .
  3. .. Delphi., - .: , 2005, - 164 .
  4. .., .., .. '- : . / . ... .: - . .., 2001 320.
  5. .., .., Delphi . .: , 2005. 496 .




:


: 2016-09-03; !; : 253 |


:

:

, , . , .
==> ...

1790 - | 1642 -


© 2015-2024 lektsii.org - -

: 0.019 .