Delphi之不可思议

1.--------不可思议的函数调用--开始-

开发环境D7

 1 function TForm1.GetssA: string;
 2 begin
 3   Result:=Result+'AA';
 4 end;
 5
 6 procedure TForm1.Button1Click(Sender: TObject);
 7 var
 8   s:string;
 9 begin
10   s:='00';
11   s:=GetssA;
12   ShowMessage(s); //显示00AA
13 end;

1.-------不可思议的函数调用-结束------