blob: bf9dfd3424408f745214bd26fd49b8e868275461 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
unit tb0497a;
{$inline on}
interface
function compress(dest:Pchar;var destLen:cardinal; source : Pchar; sourceLen:cardinal):longint;inline;
implementation
uses tb0497b;
function compress(dest:Pchar;var destLen:cardinal; source : Pchar; sourceLen:cardinal):longint;inline;
type Pbytearray=^Tbytearray;
Tbytearray=array[0..0] of byte;
begin
compress:=tb0497b.compress(Pbyte(dest),destlen,Pbytearray(source)^,sourcelen);
end;
end.
|
