delphi - 使用内存表对网格进行排序

Question

我想对网格进行排序。我创建了一个内存表并将其链接到网格作为数据源。我正在将数据从 nxQuery 对象插入到内存表中。为了排序，我还必须将索引添加到内存表中。

这是表单创建事件中的索引添加和插入部分

nxMemTable1.IndexDefs.Clear;
nxMemTable1.FieldDefs.Clear;

nxMemTable1.FieldDefs.Add('packpatientid', ftInteger, 0, False);
nxMemTable1.FieldDefs.Add('firstname', ftString, 10, False);
nxMemTable1.FieldDefs.Add('lastname', ftString, 10, False);
while not nxQuery1.EOF do
begin
  nxMemTable1.Append;
  nxMemTable1.FieldByName('packpatientid').AsInteger :=   nxQuery1packpatientid.AsInteger;
  nxMemTable1.FieldByName('firstname').AsString := nxQuery1firstname.AsString;
  nxMemTable1.FieldByName('lastname').AsString := nxQuery1lastname.AsString;
  nxMemTable1.Post;
end;

这是我尝试对内存表进行排序的代码

过程 TForm1.Button2Click(发件人: TObject);
开始
nxMemTable1.IndexFieldNames := '名字';
结束；

但这不起作用。当我单击按钮时，它显示“字段‘名字’没有索引”

Answer 1

这适用于标准TClientDataSet。

我创建了一个新的 VCL Forms 项目，在表单上放置了一个 TClientDataSet，并将其命名为 CDS 以简化代码。然后，我添加了一个 TDataSource，为其 DataSet 属性分配了 CDS，添加了 TDBGrid，并分配了 DataSet1 作为其数据源。然后，我创建了两个事件处理程序，一个用于 Form1.OnCreate 事件，另一个用于 DBGrid1。 OnTitleClick 事件。

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  sField: string;
begin
  sField := Column.FieldName;
  if sField <> CDS.IndexFieldNames then
    CDS.IndexFieldNames := sField;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  CDS.FieldDefs.Add('LastName', ftString, 30);
  CDS.FieldDefs.Add('FirstName', ftString, 30);
  CDS.FieldDefs.Add('ID', ftInteger);
  CDS.CreateDataSet;
  CDS.AppendRecord(['Smith', 'John', 3]);
  CDS.AppendRecord(['Doe', 'Jane', 1]);
  CDS.AppendRecord(['Adams', 'Quincy', 2]);
  CDS.IndexFieldNames := 'LastName';
end;

运行应用程序并单击任何列标题会立即按该列对 DBGrid 进行排序(如果尚未按该列排序)。