怎样才能获得函数的返回值

Question

我有一个FUNCTION函数，它当中有两个返回值，我要怎样去设置它，并用什么方式来获得它呢。请详细说明，谢谢。注意是函数不是过程。

Answer 1

function fGetStrCaption:String;var
  FstrCaption:String;
begin
FstrCaption:=fGetStrCaption;end;

Answer 2

to loveghb
能不能详细说明啊，我对这个问题不是很懂。

Answer 3

type
  Rec = record
    Result1:string;
    Result2:string;
  end; public
    { Public declarations }
    function Return2(str:string):Rec;function TForm1.Return2(str: string): Rec;
var rec1:Rec;
begin
    rec1.Result1:=str;
    rec1.Result2:=str+str;
    Result:=rec1;
end;procedure TForm1.Button2Click(Sender: TObject);
var rec2:Rec;
begin
    rec2:=return2('qi');
    ShowMessage(rec2.Result1);
    ShowMessage(rec2.Result2);
end;

Answer 4

学习中...我想问一下，我将一些公用变量和函数放在单独的一个PublicUnit.Pas（它没窗体）中， 
也没有Public等字样，我手工加上去，好象没用，怎么办！？？？

Answer 5

你可以用procedure（var v1，v2:value）来更改外部变量v1，v2

Answer 6

对呀，你就用变参吗》
返回bool型 的，表示过程是否执行成功

Answer 7

1.数组；2.结构体；3.Out参数；4.Var参数