| Class TMainForm (unit TEST_A1) |
TForm
| Constructors |
| Functions |
procedure LZWCompressorGetData(Sender: TObject; pData: Pointer;
var cbData: Integer);
procedure LZWCompressorSetData(Sender: TObject; pData: Pointer;
var cbData: Integer);
procedure TestLZWCompress(Sender: TObject);
procedure TestLZWDecompress(Sender: TObject);
procedure TestNullCompress(Sender: TObject);
procedure TestNullDecompress(Sender: TObject);
procedure GetDataEvent( Sender :TObject;
pData :Pointer; Var cbData :Integer );
procedure SetDataEvent( Sender :TObject;
pData :Pointer; Var cbData :Integer );| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
LZWCompressor : TLZWCompressor;
OpenDialog : TOpenDialog;
TimeLbl : TLabel;
FInStream : TFileStream;
FOutStream : TFileStream;| Constructors |
| Functions |
procedure LZWCompressorGetData(Sender: TObject; pData: Pointer;
var cbData: Integer);
procedure LZWCompressorSetData(Sender: TObject; pData: Pointer;
var cbData: Integer);
procedure TestLZWCompress(Sender: TObject);
procedure TestLZWDecompress(Sender: TObject);
procedure TestNullCompress(Sender: TObject);
procedure TestNullDecompress(Sender: TObject);
procedure GetDataEvent( Sender :TObject;
pData :Pointer; Var cbData :Integer );
procedure SetDataEvent( Sender :TObject;
pData :Pointer; Var cbData :Integer );| Properties |
| Events |
| Variables |
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
LZWCompressor : TLZWCompressor;
OpenDialog : TOpenDialog;
TimeLbl : TLabel;
FInStream : TFileStream;
FOutStream : TFileStream;