请教以函数方式给数组赋值的写法?

wj5759806

Type
   CurrList = record
      iID : Integer;
      cCode : String;
      cField1 : String;
      cField2 : String;

Var
   Curr500 : Array Of CurrList;      

function LoadComboBox(ObjCurr:array of CurrList;ado:TAdoQuery):Boolean;
var
   iCount : integer;
begin
   iCount := 0;
   ado.First;
   While Not ado.Eof Do
   Begin
      iCount := iCount+1;
      ObjCurr[iCount-1].iID := ado.FieldByName('iID').AsInteger;
      ObjCurr[iCount-1].cField1 := ado.FieldByName('cField1').AsString;
      ado.Next;
   End;
end;

//初始化操作
SetLength(Curr500,ado.RecordCount);
LoadComboBox(Curr500,ado);

//调用时发现Curr500为空？  
Edit1.text := Curr500[iIndex].cField1;

//多谢

面面爱面面

用引用参数。如下：(注意多了个var)

function LoadComboBox( var ObjCurr:array of CurrList;ado:TAdoQuery):Boolean;
....

面面爱面面

测试通过：

Type
   CurrList = record
      iID : Integer;
      cCode : String;
      cField1 : String;
      cField2 : String;
end;

function LoadComboBox(var ObjCurr:array of CurrList):Boolean;
var
   iCount:integer;
begin
   for iCount := 1 to 11 Do
   Begin
      ObjCurr[iCount-1].iID := iCount;
      ObjCurr[iCount-1].cField1 := IntToStr(iCount);
   End;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Curr500 : Array[1..11] Of CurrList;
begin
  LoadComboBox(Curr500);
  Edit1.text := Curr500[1].cField1;
end;