delphi listview结合adapter适配器显示数据的代码

在Delphi中，可以使用TListView组件来显示数据，并通过TAdapterBindSource和TAdapterListViewAdapter来实现数据的绑定和显示。下面是一个简单的示例代码：

unit MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.Bind.GenData, Data.Bind.EngExt,
  Vcl.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors,
  Data.Bind.Components, Data.Bind.Grid, Vcl.Grids, Data.Bind.ObjectScope,
  Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Bind.Navigator;

type
  TForm1 = class(TForm)
    ListView1: TListView;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FPersonList: TObjectList<TPerson>;
    procedure LoadData;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  System.Generics.Collections;

type
  TPerson = class
    FirstName: string;
    LastName: string;
    Age: Integer;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FPersonList := TObjectList<TPerson>.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadData;
  ListView1.Items.Clear;
  ListView1.ItemAppearanceObjects.ItemObjects.Text.Text := 'FirstName';
  ListView1.ItemAppearanceObjects.ItemObjects.Detail.Text := 'LastName';
  ListView1.ItemAppearanceObjects.ItemObjects.Accessory.Text := 'Age';
  ListView1.Adapter := TListBindSourceAdapter<TPerson>.Create(Self, FPersonList);
end;

procedure TForm1.LoadData;
var
  Person: TPerson;
begin
  Person := TPerson.Create;
  Person.FirstName := 'John';
  Person.LastName := 'Doe';
  Person.Age := 25;
  FPersonList.Add(Person);

  Person := TPerson.Create;
  Person.FirstName := 'Jane';
  Person.LastName := 'Smith';
  Person.Age := 30;
  FPersonList.Add(Person);
end;

end.

在上述代码中，首先在FormCreate事件中创建了一个TObjectList<TPerson>对象，用于存储要显示的数据。在Button1Click事件中，通过LoadData方法加载数据，并将数据绑定到ListView上。

在ListView的ItemAppearanceObjects属性中，设置了各个子项的显示内容，例如Text.Text对应FirstName，Detail.Text对应LastName，Accessory.Text对应Age。

最后，使用TListBindSourceAdapter<TPerson>类来创建适配器，并将其赋值给ListView的Adapter属性，即可实现数据的绑定和显示。

请注意，在使用TAdapterBindSource和TAdapterListViewAdapter时，需要在uses中添加Data.Bind.GenData单元，并在项目中引用LiveBindings及相关包文件。