Tlistview.Data verwenden

[Zacherl]

Eintragen:

Delphi-Quellcode:

var
  UserData: TUserData;
begin
  UserData := TUserData.Create;
  UserData.Name := 'irgendwas'
  {...}

  with ListView.Items.Add(nil, '') do
  begin
    Text := 'hallo';
    Data := Pointer(UserData);
  end;
end;

Auslesen

Delphi-Quellcode:

begin
  with TUserData(ListView.Items[0].Data) do
  begin
    ShowMessage(Name);
  end;
end;

Florian