Delphi 下如何使用对象数组和将数组与dbgrid绑定

sjgshujianguo

于 2018-10-31 22:46:01 发布

阅读量1k

点赞数 1

文章标签： delphi 对象数组数组绑定dbgrid

本文链接：https://blog.youkuaiyun.com/sjgshujianguo/article/details/83591956

版权

在对Delphi程序进行优化时，遇到百万级远程数据库和十万级本地数据库的联查导致查询速度极慢问题。为解决此问题，尝试将数据存储到本地内存中的对象数组，并通过类操作，成功实现了对象数组与DBGrid的绑定，以提高查询速度。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

最近在做维护时，发现传了多少代的程序使用delphi开发，之前没有用过，在对程序优化的时候发现dbgrid控件全部都是直接跟数据库相连，有些数据将远程数据库和本地数据库连查，远程数据库数据量在百万级别，本地数据库数据在十万级别。那个查询速度，我哭了，使用者也哭了。

于是想将数据存储到本地内存中来，利用类来进行操作，以求得到速度上的提高。尝试了半天终于让我找到了创建类数组和将数组作为dbgrid的datasource的方法。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBClient;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    DBGrid1: TDBGrid;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

//Test 类，自定义类
type
 Ttest =class(Tobject)
 public
 test1:string;
 test2:string;
end      ;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var test_array:array of Ttest;     //自定义类数组
var i:integer;
be