unit1.pas

DELPHI的压缩控件,非常实用的第三方控件

Unit unit1;

Interface

Uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

Type
  TForm1 = Class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Procedure Button1Click(Sender: TObject);
    Procedure Button2Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;



Var
  Form1: TForm1;

Implementation

{$R *.DFM}

Uses
	ztvBase, ztvStreams, ztvInflate, ztvDeflate;

Procedure TForm1.Button1Click(Sender: TObject);
Var
   Level: TDeflateType;
Begin
	If Length( Memo1.Text ) > 0 Then
   Begin
   	Level := dtDeflateN;
      Memo2.Text := ztvCompress_String( Memo1.Text, Level );
      Memo1.Text := '';
   End;
End;
//-------------------------------------------------------------

Procedure TForm1.Button2Click(Sender: TObject);
Begin
	If Length( Memo2.Text ) > 0 Then
   Begin
  		Memo1.Text := ztvDecompress_String( Memo2.Text );
      Memo2.Text := '';
   End;
End;
//-------------------------------------------------------------

End.