delphi如何定义一个返回数组的函数啊？？在线等哦！！

Question

delphi如何定义一个返回数组的函数啊？？在线等哦！！定义成TStringList或其他数组函数？？返回的数组的值也是经过循环获取的！！！

Answer 1

需要定义一个自定义类型, 例如:
type
  TMyResult = array [0..99] of Integer;function MyFunc(Base: Integer): TMyResult;
var
  i: Integer;
begin
  for i := 0 to 99 do Result[i] := i + Base;
end;procedure TForm1.FormCreate(Sender: TObject);
var
  A : TMyResult;
begin
  A := MyFunc(10);
  ShowMessage (IntToStr(A[0]));
  ShowMessage (IntToStr(A[99]));
end;

Answer 2

TMyArray = array [0..2] of Integer;function GetArray:TMyArray;
begin
  Result[0] := 1;
  Result[1] := 2;
  Result[2] := 3;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  my:TMyArray;
begin
  my := GetArray;
  ShowMessage(IntToStr(my[0]));
end;

Answer 3

我的数组的内容是从XML中获取的,xml结构如下：
<class>
<Bug>090010003</Bug>
<Categories type="aaa" info="ClassChin" degree="1"/>
<Categories type="bbb" info="SubClassChin" degree="2"/>
<Categories type="ccc" info="DetailClassChin" degree="3"/>
<Description/>
<Serverity>0.0</Serverity>
<Feedback/>
<Advice/>
</class> 
        ……………………
<class>
         ……………………
</class> 
要遍历获取Bug节点中的值，该怎么写呢？？真的太感谢啦  

Answer 4

自定义一个TObj，通过XML解析成一个关于TObj的TList
得到之后通过TList进行遍历看你的数据源，类似master-detail类型，定义Obj的时候，obj中还需要detial的list

Answer 5

直接用XMLDocument组件加载你的XML文档,然后就可以直接取指定节点的值了.