procedure TForm1.FormCreate(Sender: TObject);
function f(s: string): byte;
begin
result := 1;
showmessage(s)
end;
procedure p(s1,s2: byte);
begin
end;
begin
p(f('1'),f('2'))
end;
XE下: procedure TForm1.FormCreate(Sender: TObject); function f(s: string): byte; begin result := 1; showmessage(s) end; procedure p(s1,s2: byte); begin end; begin p(f('1'),f('2')) end; 执行结果先弹2,再弹1。 但是帮助文档 ms-help://embarcadero.rs_xe/rad/Procedures_and