Z
zw963
Unregistered / Unconfirmed
GUEST, unregistred user!
最好用的办法是返回函数的同时，内部使用指针或者引用返回。
举例如下。
var
y :integer;
function function1(x : intger) : integer
type
pointer1=^integer;
var
p : pointer1
begin
p := @y;
p^=p^*2
>>返回了一个值
result=x*2
>>返回了第二个个值。
end;
举例如下。
var
y :integer;
function function1(x : intger) : integer
type
pointer1=^integer;
var
p : pointer1
begin
p := @y;
p^=p^*2
>>返回了一个值
result=x*2
>>返回了第二个个值。
end;