怎样返回四个参数

Question

Function myFun(A :Integer) : Integer;
begin
  //用全局变量
  //或是改变数的数目；
  // 如，你上边的参数A也会给你返回去的；
end;

Answer 1

type
  MyArray = array of integer;
  TForm1 = class(TForm)
    Button1: TButton;
  private
    { Private declarations }
    function myfun(a:integer):MyArray;
  public
    { Public declarations }
  end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 2

type
    MyResult:array[1..4] of integer;function myfun(a:integer):MyResult;

Answer 3

对，返回记录，或指针 均可
在C中指针多，在PASCAL中记录多

Answer 4

在function TForm1.myfun(a:integer):MyArray;中记得首先：
  SetLength(Result,4);—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————

Answer 5

procedure myfun(a:integer;var r1,r2,r3,r4:integer);
//r1-4也可做返回值

Answer 6

不好意思, 没有看清楚 yang6130(月明@沧海) 的贴子. 呵呵, 出丑了.