VirtualTree, record и указатели.

[Человек_Борща]

Аватар, неа. Не помогло. Ведет в никуда. Раньше TNodeData читалось нормально.

Я TNodeData.P прочитать не могу.

[Аватар]

Нормально записывается и нормально читается и не надо злоупотреблять ^

type
  TNodeDataKind = (dtType1,dtType2,dtType3);

  TNodeData = class(TObject)
  public
    Kind: TNodeDataKind; // See above
    P: Pointer; // Ptr to object
    constructor Create(aKind: TNodeDataKind; aPtr: Pointer); overload;
  end;

constructor TNodeData.Create(aKind: TNodeDataKind; aPtr: Pointer);
begin
  Kind := aKind;
  P := aPtr;
end;

procedure TForm1.Button1Click(Sender: TObject);
var xItem: TListItem;
begin
  xItem:=ListView1.Items.Add;
  xItem.Caption:='1';
  xItem.Data:=TNodeData.Create(dtType1,Label1);

  xItem:=ListView1.Items.Add;
  xItem.Caption:='2';
  xItem.Data:=TNodeData.Create(dtType2,Edit1);

  xItem:=ListView1.Items.Add;
  xItem.Caption:='3';
  xItem.Data:=TNodeData.Create(dtType3,Memo1);
end;

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
var P: Pointer;
begin
  Label2.Caption:='';
  Label3.Caption:='';
  if Item=nil then Exit;
  Label2.Caption:=Item.Caption;
  p:=Item.Data;
  if p=nil then Exit;
  Label3.Caption:=TObject(TNodeData(p).P).ClassName;
  case TNodeData(p).Kind of
  dtType1: Label3.Caption:=Label3.Caption+Format(' Label1.Caption=%s',[TLabel(TNodeData(p).P).Caption]);
  dtType2: Label3.Caption:=Label3.Caption+Format(' Edit1.Text=%s',[TEdit(TNodeData(p).P).Text]);
  dtType3: Label3.Caption:=Label3.Caption+Format(' Memo1.Text=%s',[TMemo(TNodeData(p).P).Text]);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
var i: Integer;
begin
  for i:=0 to ListView1.Items.Count-1 do
    if ListView1.Items.Item[i].Data<>nil then begin
      TNodeData(ListView1.Items.Item[i].Data).Free;
      ListView1.Items.Item[i].Data:=nil;
    end;
end;

[eval]

есть более прямой способ, юзать не рекорд а класс

[Человек_Борща]

eval, уже =) Рекорды это нечто :|
Аватар,

 Label3.Caption:=TObject(TNodeData(p).P).ClassName;

Единственное приведение типов, которое я не пробовал

Выручили.