ClassData: OleVariant; ClassData:=VarArrayCreate([0,ClientDataSetClass.RecordCount-1],VarVariant); ClientDataSetClass.First; for i:=0 to ClientDataSetClass.RecordCount-1 do begin ClassData[i]:=VarArrayof([ClientDataSetClass.FieldByName('ClassID').Value, ClientDataSetClass.FieldByName('Name').Value, ClientDataSetClass.FieldByName('GroupID').Value, ClientDataSetClass.FieldByName('SubGroup').Value, ClientDataSetClass.FieldByName('GroupNo').Value]); ClientDataSetClass.Next; end;
ClientDataSetClass.First;
for i:=0 to ClientDataSetClass.RecordCount-1 do
begin
ClassData[i]:=VarArrayof([ClientDataSetClass.FieldByName('ClassID').Value,
ClientDataSetClass.FieldByName('Name').Value,
ClientDataSetClass.FieldByName('GroupID').Value,
ClientDataSetClass.FieldByName('SubGroup').Value,
ClientDataSetClass.FieldByName('GroupNo').Value]);
ClientDataSetClass.Next;
end;