delphi listview 增加一个对象

在Delphi中，可以通过ListView控件的Items属性来添加列表项，每个列表项都是一个TListItem对象。如果要向ListView控件中添加一个自定义的对象，需要先将该对象封装为TListItem对象，然后将TListItem对象添加到ListView控件的Items属性中。下面是一个简单的示例代码，演示如何向ListView控件中添加一个自定义对象：

type
  TMyObject = class
  private
    FName: string;
    FValue: Integer;
  public
    constructor Create(const AName: string; AValue: Integer);
    property Name: string read FName write FName;
    property Value: Integer read FValue write FValue;
  end;

constructor TMyObject.Create(const AName: string; AValue: Integer);
begin
  FName := AName;
  FValue := AValue;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyObject: TMyObject;
  ListItem: TListItem;
begin
  MyObject := TMyObject.Create('Object 1', 123);
  ListItem := ListView1.Items.Add;
  ListItem.Caption := MyObject.Name;
  ListItem.SubItems.Add(IntToStr(MyObject.Value));
  ListItem.Data := MyObject;
end;

在上面的示例代码中，首先定义了一个自定义的TMyObject对象，该对象有两个属性Name和Value。在Button1的Click事件中，创建一个TMyObject对象MyObject，将其封装为一个TListItem对象ListItem，并将ListItem添加到ListView控件的Items属性中。需要注意的是，将MyObject对象赋给ListItem的Data属性，以便在后续的操作中可以通过ListItem获取MyObject对象。