PAS2k
01-12-2003, 11:21
Надо сделать на Delphi примерно такое:
Procedure button1.click(sender:tobject);
var a:integer;
begin
{procedure smth(a:integer) external edit1.text(!!!) name edit2.text(!!!);}
smth(a);
end;
Procedure button1.click(sender:tobject);
var a:integer;
begin
{procedure smth(a:integer) external edit1.text(!!!) name edit2.text(!!!);}
smth(a);
end;