把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;

From:http://tw.wingwit.com/Article/program/Delphi/201311/8510.html