android - 以编程方式不使用实时绑定(bind)来构建TListView

我有一个包含TFDMemtable(FireDAC)的跨平台应用程序。

我的问题是，如何从该表中的记录手动构建一个TListView？

我的表包含按字母顺序排列的男性表情列表。

例如亚当，安东尼，艾伦，布莱恩，比尔，鲍勃，本，查理，克雷格，克里斯托弗，科林等。

我希望列表视图包括名称的分组，所以A，B，C等。

到目前为止，我有以下内容:

procedure BuildNameList;
var Litem : TListViewItem;
c : Char;
begin
  ListView1.BeginUpdate;
  try
   ListView1.ClearItems;

  for c := 'A' to 'Z' do
  begin
    with ListView1.Items.Add do
    begin
      Text := char(c);
      Purpose := TListItemPurpose.Header;
    end;

  with dmod.tableNames do
  begin
    First;
   while not Eof do
    begin
      Litem := ListView1.Items.Add;
      Litem.Text := dmod.tableNames.FieldByName('ForeName').AsString;
      Next;
    end;
  end;
  end;
  finally
    ListView1.EndUpdate;
end;

上面的代码并没有给我我想要的结果，发生的是我得到每个字母组(A-Z)下重复的每个名称。

任何建议/帮助将不胜感激。
谢谢

最佳答案

您需要更改逻辑以先添加标题，然后添加该标题下的名称，然后添加下一个标题和名称集。这是一个演示完整的测试应用程序。您需要在表单上放置FMX TListView和TClientDataSet并连接FormCreate事件以查看其工作。 (请注意，需要在ClientDataSet上使用索引，以确保名称顺序正确；如果名称不按字母顺序排列，则代码将无法正常工作，因为找不到所需的数据添加到部分。)

unit Unit3;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ListView.Types, Data.DB,
  Datasnap.DBClient, FMX.ListView;

type
  TForm3 = class(TForm)
    ListView1: TListView;
    CDS: TClientDataSet;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure BuildNameList;
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.fmx}

procedure TForm3.BuildNameList;
var
  Item: TListViewItem;
  Ch: Char;
begin
  ListView1.BeginUpdate;
  CDS.First;
  try
    ListView1.ClearItems;
    for Ch := 'A' to 'Z' do
    begin
      Item := ListView1.Items.Add;
      Item.Text := Ch;
      Item.Purpose := TListItemPurpose.Header;

      while (CDS.FieldByName('SurName').AsString[1] = Ch) and (not CDS.Eof) do
      begin
        Item := ListView1.Items.Add;
        Item.Text := CDS.FieldByName('SurName').AsString + ', ' +
                     CDS.FieldByName('ForeName').AsString;

        CDS.Next;
      end;
    end;
  finally
    ListView1.EndUpdate;
  end;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
  // Create some test data
  CDS.FieldDefs.Add('ForeName', ftString, 20);
  CDS.FieldDefs.Add('SurName', ftString, 30);
  CDS.CreateDataSet;
  CDS.Open;
  CDS.AppendRecord(['John', 'Smith']);
  CDS.AppendRecord(['Jane', 'Doe']);
  CDS.AppendRecord(['Ralph', 'Richards']);
  CDS.AppendRecord(['Fred', 'Fredericks']);
  CDS.AppendRecord(['Sam', 'Samuels']);
  CDS.AppendRecord(['Walter', 'Williams']);
  CDS.AppendRecord(['Ann', 'Anderson']);
  CDS.AppendRecord(['Bob', 'Barnes']);

  // Index it to put it in alphabetical order
  CDS.IndexDefs.Add('Names', 'SurName;ForeName', []);
  CDS.IndexName := 'Names';
  BuildNameList;
end;

end.

这是该示例应用程序ListView中心部分的屏幕截图，因此您可以看到结果: