exports

CompressImage name 'CompressImage '; {делаем функцию CompressImage экспортируемой }

Begin

End.

/////////////////////////////////////////////////////// Файл Module1.pas /////////////////////////////////

unit Module1;

Interface

Type

TArray = array [0..9] of byte;

pArray = ^TArray; { объявляется тип указателя на массив элементов типа byte }

{ объявление процедуры CompressImage}

procedure CompressImage(pInBuf:pArray; pOutBuf:pArray; nInSize:longword; nOutSize:longword);

Implementation

Uses

Dialogs,

SysUtils;

{ определение процедуры CompressImage}

procedure CompressImage(pInBuf:pArray; pOutBuf:pArray; nInSize:longword; nOutSize:longword);

Var

{ Здесь объявляются локальные переменные, например i: integer; Res: byte}

Begin

{ Здесь размещается код алгоритма.

pInBuf – указатель на массив входных данных типа byte;

pOutBuf – указатель на массив выходных(сжатых) данных типа byte;

nInSize – размер входных данных, передаваемый процедуре;

nOutSize – размер выходных данных, вычисляемый процедурой;

Индексация массивов начинается с нуля.

Обращение к i-элементу массива по указателю выполняется в виде pInBuf^[i].

Пример:

for i:=0 to (n-1) do

Begin

pOutBuf ^[i+1]:= pInBuf^[i];

end;

}

end;

end.