Ask how to assign a function to an array?

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;

// Init operation
SetLength (Curr500, ado.RecordCount);
LoadComboBox (Curr500, ado);
 
// Is Curr500 empty when called?
Edit1.text: = Curr500 [iIndex] .cField1;

// thanks

面面爱面面

With reference parameters. As follows: (note an extra var)

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

面面爱面面

Test passed:

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;