Delphi之不可思议

 

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

开发环境D7

function TForm1.GetssA: string;
begin
  Result:=Result+'AA';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
begin
  s:='00';
  s:=GetssA;
  ShowMessage(s); //显示00AA
end;

 

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