ХЕ4

← →
брат Птибурдукова (2013-06-18 13:13) [0]

А у кого тут ХЕ4? Киньте, плз, объявление класса TStream.

← →
robt5 (2013-06-18 15:02) [1]

> у кого тут ХЕ4

его тут так зачмырили, что врятли :)

← →
Eraser © (2013-06-18 16:51) [2]

> брат Птибурдукова (18.06.13 13:13)

{ TStream abstract class } TStream = class(TObject) private function GetPosition: Int64; procedure SetPosition(const Pos: Int64); procedure SetSize64(const NewSize: Int64); function Skip(Amount: Integer): Integer; protected function GetSize: Int64; virtual; procedure SetSize(NewSize: Longint); overload; virtual; procedure SetSize(const NewSize: Int64); overload; virtual; public //{$IFDEF NEXTGEN} // function Read(Buffer: TBytes; Offset, Count: Longint): Longint; overload; virtual; abstract; // function Write(const Buffer: TBytes; Offset, Count: Longint): Longint; overload; virtual; abstract; //{$ELSE NEXTGEN} function Read(var Buffer; Count: Longint): Longint; overload; virtual; function Write(const Buffer; Count: Longint): Longint; overload; virtual; function Read(Buffer: TBytes; Offset, Count: Longint): Longint; overload; virtual; function Write(const Buffer: TBytes; Offset, Count: Longint): Longint; overload; virtual; //{$ENDIF NEXTGEN} function Read(var Buffer: TBytes; Count: Longint): Longint; overload; function Write(const Buffer: TBytes; Count: Longint): Longint; overload; function ReadData( Buffer: Pointer; Count: Longint): Longint; overload; function ReadData(var Buffer: Boolean): Longint; overload; function ReadData(var Buffer: Boolean; Count: Longint): Longint; overload; {$IFNDEF NEXTGEN} function ReadData(var Buffer: AnsiChar): Longint; overload; function ReadData(var Buffer: AnsiChar; Count: Longint): Longint; overload; {$ENDIF !NEXTGEN} function ReadData(var Buffer: Char): Longint; overload; function ReadData(var Buffer: Char; Count: Longint): Longint; overload; function ReadData(var Buffer: Int8): Longint; overload; function ReadData(var Buffer: Int8; Count: Longint): Longint; overload; function ReadData(var Buffer: UInt8): Longint; overload; function ReadData(var Buffer: UInt8; Count: Longint): Longint; overload; function ReadData(var Buffer: Int16): Longint; overload; function ReadData(var Buffer: Int16; Count: Longint): Longint; overload; function ReadData(var Buffer: UInt16): Longint; overload; function ReadData(var Buffer: UInt16; Count: Longint): Longint; overload; function ReadData(var Buffer: Int32): Longint; overload; function ReadData(var Buffer: Int32; Count: Longint): Longint; overload; function ReadData(var Buffer: UInt32): Longint; overload; function ReadData(var Buffer: UInt32; Count: Longint): Longint; overload; function ReadData(var Buffer: Int64): Longint; overload; function ReadData(var Buffer: Int64; Count: Longint): Longint; overload; function ReadData(var Buffer: UInt64): Longint; overload; function ReadData(var Buffer: UInt64; Count: Longint): Longint; overload; function ReadData(var Buffer: Single): Longint; overload; function ReadData(var Buffer: Single; Count: Longint): Longint; overload; function ReadData(var Buffer: Double): Longint; overload; function ReadData(var Buffer: Double; Count: Longint): Longint; overload; function ReadData(var Buffer: Extended): Longint; overload; function ReadData(var Buffer: Extended; Count: Longint): Longint; overload; function ReadData(var Buffer: TExtended80Rec): Longint; overload; function ReadData(var Buffer: TExtended80Rec; Count: Longint): Longint; overload; function WriteData(const Buffer: TBytes; Count: Longint): Longint; overload; function WriteData(const Buffer: Pointer; Count: Longint): Longint; overload; function WriteData(const Buffer: Boolean): Longint; overload; function WriteData(const Buffer: Boolean; Count: Longint): Longint; overload; {$IFNDEF NEXTGEN} function WriteData(const Buffer: AnsiChar): Longint; overload; function WriteData(const Buffer: AnsiChar; Count: Longint): Longint; overload; {$ENDIF !NEXTGEN} function WriteData(const Buffer: Char): Longint; overload; function WriteData(const Buffer: Char; Count: Longint): Longint; overload; function WriteData(const Buffer: Int8): Longint; overload; function WriteData(const Buffer: Int8; Count: Longint): Longint; overload; function WriteData(const Buffer: UInt8): Longint; overload; function WriteData(const Buffer: UInt8; Count: Longint): Longint; overload; function WriteData(const Buffer: Int16): Longint; overload; function WriteData(const Buffer: Int16; Count: Longint): Longint; overload; function WriteData(const Buffer: UInt16): Longint; overload; function WriteData(const Buffer: UInt16; Count: Longint): Longint; overload; function WriteData(const Buffer: Int32): Longint; overload; function WriteData(const Buffer: Int32; Count: Longint): Longint; overload; function WriteData(const Buffer: UInt32): Longint; overload; function WriteData(const Buffer: UInt32; Count: Longint): Longint; overload; function WriteData(const Buffer: Int64): Longint; overload; function WriteData(const Buffer: Int64; Count: Longint): Longint; overload; function WriteData(const Buffer: UInt64): Longint; overload; function WriteData(const Buffer: UInt64; Count: Longint): Longint; overload; function WriteData(const Buffer: Single): Longint; overload; function WriteData(const Buffer: Single; Count: Longint): Longint; overload; function WriteData(const Buffer: Double): Longint; overload; function WriteData(const Buffer: Double; Count: Longint): Longint; overload; function WriteData(const Buffer: Extended): Longint; overload; function WriteData(const Buffer: Extended; Count: Longint): Longint; overload; function WriteData(const Buffer: TExtended80Rec): Longint; overload; function WriteData(const Buffer: TExtended80Rec; Count: Longint): Longint; overload; function Seek(Offset: Longint; Origin: Word): Longint; overload; virtual; function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; overload; virtual; function Seek(const Offset: Int64; Origin: Word): Int64; overload; deprecated; inline; //{$IFNDEF NEXTGEN} procedure ReadBuffer(var Buffer; Count: Longint); overload; //{$ENDIF !NEXTGEN} procedure ReadBuffer(var Buffer: TBytes; Count: Longint); overload; // procedure ReadBuffer(Buffer: pointer; Count: Longint); overload; procedure ReadBufferData(var Buffer: Boolean); overload; procedure ReadBufferData(var Buffer: Boolean; Count: Longint); overload; {$IFNDEF NEXTGEN} procedure ReadBufferData(var Buffer: AnsiChar); overload; procedure ReadBufferData(var Buffer: AnsiChar; Count: Longint); overload; {$ENDIF !NEXTGEN} end;

← →
Eraser © (2013-06-18 16:52) [3]

procedure ReadBufferData(var Buffer: Char); overload; procedure ReadBufferData(var Buffer: Char; Count: Longint); overload; procedure ReadBufferData(var Buffer: Int8); overload; procedure ReadBufferData(var Buffer: Int8; Count: Longint); overload; procedure ReadBufferData(var Buffer: UInt8); overload; procedure ReadBufferData(var Buffer: UInt8; Count: Longint); overload; procedure ReadBufferData(var Buffer: Int16); overload; procedure ReadBufferData(var Buffer: Int16; Count: Longint); overload; procedure ReadBufferData(var Buffer: UInt16); overload; procedure ReadBufferData(var Buffer: UInt16; Count: Longint); overload; procedure ReadBufferData(var Buffer: Int32); overload; procedure ReadBufferData(var Buffer: Int32; Count: Longint); overload; procedure ReadBufferData(var Buffer: UInt32); overload; procedure ReadBufferData(var Buffer: UInt32; Count: Longint); overload; procedure ReadBufferData(var Buffer: Int64); overload; procedure ReadBufferData(var Buffer: Int64; Count: Longint); overload; procedure ReadBufferData(var Buffer: UInt64); overload; procedure ReadBufferData(var Buffer: UInt64; Count: Longint); overload; procedure ReadBufferData(var Buffer: Single); overload; procedure ReadBufferData(var Buffer: Single; Count: Longint); overload; procedure ReadBufferData(var Buffer: Double); overload; procedure ReadBufferData(var Buffer: Double; Count: Longint); overload; procedure ReadBufferData(var Buffer: Extended); overload; procedure ReadBufferData(var Buffer: Extended; Count: Longint); overload; procedure ReadBufferData(var Buffer: TExtended80Rec); overload; procedure ReadBufferData(var Buffer: TExtended80Rec; Count: Longint); overload; procedure WriteBuffer(const Buffer; Count: Longint); overload; procedure WriteBuffer(Buffer: TBytes; Count: Longint); overload; procedure WriteBuffer(Buffer: TBytes; Offset, Count: Longint); overload; procedure WriteBufferData(var Buffer: Integer; Count: Longint); overload; function CopyFrom(const Source: TStream; Count: Int64): Int64; function ReadComponent(const Instance: TComponent): TComponent; function ReadComponentRes(const Instance: TComponent): TComponent; procedure WriteComponent(const Instance: TComponent); procedure WriteComponentRes(const ResName: string; const Instance: TComponent); procedure WriteDescendent(const Instance, Ancestor: TComponent); procedure WriteDescendentRes(const ResName: string; const Instance, Ancestor: TComponent); procedure WriteResourceHeader(const ResName: string; out FixupInfo: Integer); procedure FixupResourceHeader(FixupInfo: Integer); procedure ReadResHeader; property Position: Int64 read GetPosition write SetPosition; property Size: Int64 read GetSize write SetSize64;

← →
Eraser © (2013-06-18 16:52) [4]

> robt5 (18.06.13 15:02) [1]

самая стабильная IDE за последнее время.

← →
брат Птибурдукова (2013-06-18 17:04) [5]

Спасибо, что мне было надо, увидел

← →
NoUser © (2013-06-18 17:07) [6]

> брат Птибурдукова (18.06.13 17:04) [5]
Поделитесь, пожалуйста, впечатлением от увиденного.

← →
брат Птибурдукова (2013-06-18 17:14) [7]

Без исходного текста FastReport 4.14 впечатления будут неполны, а исходный текст FastReport, увы и ах, слишком обширен для данного форума, да к тому же является объектов авторского права.

Администраторы, закройте или удалите тему, пожалуйста.

Не увиливайте! :)

ХЕ4 Найти похожие ветки