函数里返回动态数组该怎么写的？忘记了，帮忙！

Question

这样写不对 
function savetoarray(listitemid:integer):array of integer;
该怎么写啊！

Answer 1

procedure SaveToArray(ListItemID:integer;var ListItem:array of integer);

Answer 2

变参可以传递？我忘了，怎么用的？
savetoarray(id,array1)?直接存在里面了？跳出过程array1也存在?

Answer 3

这样写，比较通用；
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure getStrings(var strArray:TStrings);
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.getStrings(var strArray: TStrings);
var
    i:integer;
begin
    for i := 0 to 10 do
    begin
        strArray.Add(inttostr(i));
    end;                          
end;procedure TForm1.Button1Click(Sender: TObject);
var
    strArray:TStrings;
    i:integer;
begin
    strArray := TStringList.Create();
    getStrings(strArray);
    try
        for i := 0 to strArray.Count-1 do
        begin
            showmessage(strArray[i]);
        end;
    finally
        strArray.Free;
    end;
end;end.
对于其他数据类型TStrings都能存，包括对象；

Answer 4

下面是个简单的例子：
type
  TMyArr = array of Integer;function MyProcArr(const AMyArr: TMyArr): TMyArr;
var
  i: Integer;
  MyArr: TMyArr;
begin
  SetLength(MyArr, Length(AMyArr));
  for i := Low(AMyArr) to High(AMyArr) do
    MyArr[i] := AMyArr[i] * 2;
  Result := MyArr;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  MyArr: TMyArr;
begin
  SetLength(MyArr, 2);
  MyArr[0] := 100;
  MyArr[1] := 200;
  MyArr := MyProcArr(MyArr);
  ShowMessage(IntToStr(MyArr[0]));
  ShowMessage(IntToStr(MyArr[1]));
end;

Answer 5

http://expert.csdn.net/Expert/topic/1951/1951825.xml?temp=.4091761

Answer 6

那不是元素的个数吗；
你把代码输入到程序中去，自己就能体会了，不要用到类似数组的东西，就声明数组，
用Delphi现成的类，比较好操作；