public
cu:integer;//全局变量用于返回参数;
procedure pr1;
procedure pr2;implentmentprocedure TForm1.pr1;
begin
cu1:=1;
end;procedure Tform2.pr2;
var
c:integer;
begin
pr1;
c:=cu1; //c=1;
end;
cu:integer;//全局变量用于返回参数;
procedure pr1;
procedure pr2;implentmentprocedure TForm1.pr1;
begin
cu1:=1;
end;procedure Tform2.pr2;
var
c:integer;
begin
pr1;
c:=cu1; //c=1;
end;
var s:string;
begin
s:='11';
p2(s);
showmessage(s);//s为‘1122’,即s为p2返回的参数
end;procedure TForm1.p2(var s:string);
begin
s:=s+'22';
end;