Цитата:
implementation
function SUM(var n,m: integer): integer; stdcall;
external 'Project2.dll' name 'SUM';
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a,b,res: integer;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
res:=SUM(a,b);
Label1.Caption:=PChar(inttostr(res));
end;
|
Красный цвет видишь?  |