1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

unit CompDecomp;

interface

uses
  SysUtils;

procedure CompressText(const filein, fileout: string); 
procedure DecompressText(const Filein, FileOut: string);
implementation

uses HuffFuncs;

procedure CompressText(const filein, fileout: string);
var size1, size2: integer;
begin
  Initialize;
  SetInputfile(FileIn);
  SetOutputFile(FileOut);
  Compress(size1, size2);
  Finalize;
end;

procedure DecompressText(const Filein, FileOut: string); 
begin
  Initialize;
  SetOutputFile(FileOut);
  SetInputfile(FileIn);
  Decompress;
  Finalize;
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then begin
    Memo1.Lines.SaveToFile(SaveDialog1.Filename);
    CompressText(SaveDialog1.Filename, SaveDialog1.Filename+'.comp');
  end;
  //wenn wir nur ein file haben wollen, brauchen wir noch das hier:
  DeleteFile(SaveDialog1.Filename);
  RenameFile(SaveDialog1.Filename+'.comp', SaveDialog1.Filename);
  if FileExists(SaveDialog1.Filename+'.comp') then 
     DeleteFile(SaveDialog1.Filename);

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button2Click(Sender: TObject);
begin 
  if OpenDialog1.Execute then begin
     DecompressText(OpenDialog1.Filename, OpenDialog1.Filename+'.decomp');
     DeleteFile(OpenDialog1.Filename);
     RenameFile(OpenDialog1.Filename+'.decomp', OpenDialog1.Filename);
     if FileExists(OpenDialog1.Filename+'.decomp') then

       DeleteFile(OpenDialog1.Filename+'.decomp);

     Memo1.Lines.LoadFromFile(OpenDialog1.Filename);
  end;
end;