把DBGrid中的数据赋给数组

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥  购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

本例实现在选择字段下拉列表框中选择要存放到数组中的字段名单击插入数组按钮把数据插入到数组中然后单击显示 按钮查看数组中的内容如图所示

http://developcsaicn/delphi/images/jpg>

图 把DBGrid中的数据赋给数组

主要代码如下

{把选择的字段数据存放在数组ArrField中}

procedure TFrmOrderByBtnOrderClick(Sender: TObject);

var

FieldName: String;

i: Integer;

begin

FieldName := DBGListColumnsItems[CBOrderItemIndex]FieldName;

SetLength(ArrField ADODataSetRecordCount);

ADODataSetDisableControls;

for i := to ADODataSetRecordCount do

begin

ArrField[i] := ADODataSetFieldByName(FieldName)AsString;

ADODataSetNext;

end;

ADODataSetEnableControls;

end;

{把数组中的数据显示在列表中}

procedure TFrmOrderByButtonClick(Sender: TObject);

var

i: Integer;

begin

MemoLinesClear;

for i := to High(ArrField) do

begin

MemoLinesAdd(arrfield[i]);

end;

end;