ИСПОЛЬЗОВАНИЕ
13.4. ИСПОЛЬЗОВАНИЕ
13.4.1. Статическая загрузка
В следующей программе используется библиотека Сmpix, описанная на предыдущей странице.
type
TComplex = record Re, Im: Real;
end;
function ADDC(x, y: TComplex): TComplex; stdcall; External 'Cmplx' ;
function SubC(x, y: TComplex): TComplex; stdcall; External 'Cmplx' ;
function MulC(x, y: TComplex): TComplex; stdcall; External 'Cmplx' ;
function DivC(x, y: TComplex): TComplex; stdcall; External 'Cmplx';
procedure TfmExample.bbRunClick(Sender: TObject);
var
x,y,z: TComplex;
..... // Далее смотри текст обработчика bbRunClick в п.12.6 end; end.
Обратите внимание: библиотечная функция cmpixAdd имеет внешнее имя addc. Именно так (заглавными буквами) описана эта функция в приведенном выше примере. Если бы мы использовали function AddC(x, у: TComplex): TComplex; stdcall; External
'Cmplx';
компоновщик не смог бы ее идентифицировать.
