TÉMA:

TTest(ListView1.Selected.Data).S

TTest(ListView1.Selected.Data^).S

unit Unit1;
{$mode objfpc}{$H+}
 
interface
 
uses  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
 
  public
 
  end;
 
type
  TTest = class(TObject)
    S:string;
  end;
 
var
  Form1: TForm1;
  Test1:TTest;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormClick(Sender: TObject); // TForm1.OnClick
begin
  if ListView1.Selected <> nil then begin
    if ListView1.Selected.Data <> nil then
      ShowMessage( TTest(ListView1.Selected.Data).S ) // <<== az AddItem AObject paraméterében hivatkozott objektum adatainak elérése
    else
      ShowMessage( 'Nincs objectum vagy adat az elemhez' );
  end
  else
    ShowMessage( 'Válassz a listából!' );
end;
 
procedure TForm1.FormCreate(Sender: TObject); // TForm1.OnCreate
begin
 
  ListView1.AddItem('Semmi 0',nil);
  ListView1.AddItem('Semmi 1',nil);
 
  Test1:=TTest.Create;
  Test1.S:='Valami adat a Test1 objekrtumban';
  ListView1.AddItem('Valami',Test1);
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject); // TForm1.OnDestroy
begin
  Test1.Destroy;
end;
 
end.

procedure TCustomListView.AddItem (Item: string; AObject: TObject);

Items.Item[Items.Count-1].Data := ...