[BorodaOleg]

Что-то совсем запутался
Win7 x64, Delphi 3

Идея - передавать в ListBox вместе со строкой ссылку на IXMLNode, дабы затем можно было посмотрить из чего оно состоит.

Добавляю так:

Код:

1	ListBox2.Items.AddObject(LNode.NodeName,TObject(LNode));

Получаю, соответственно так:

Код:

1	LNode:=IXMLNode(ListBox2.Items.Objects[ListBox2.ItemIndex]);

Компилятор ругается на несоответствие типов IXMLNode и TObject, притом, если делаю так:

Код:

1 2 3 4 5 6

var   LNode: IXMLNode;       i : integer; begin   i := integer(ListBox2.Items.Objects[ListBox2.ItemIndex]);   LNode:=IXMLNode(i); end;

компилятор все проглатывает, ошибки начинаются уже на процессе выполнения

[NumLock]

коротко говоря интерфейс и объект не одно и тоже.

[BorodaOleg]

Вопрос только в том, как его туда можно засунуть )
Под Дельфи 7, для создаваемого мною же класса все работало.

[NumLock]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TMyObject = class(TObject)     i: Integer;     constructor Create(i: Integer);   end;     TForm1 = class(TForm)     ListBox1: TListBox;     procedure FormCreate(Sender: TObject);     procedure ListBox1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   { TMyObject }   constructor TMyObject.Create(i: Integer); begin   Self.i:=i; end;   procedure TForm1.FormCreate(Sender: TObject); begin   ListBox1.Items.AddObject('1', TMyObject.Create(1));   ListBox1.Items.AddObject('22', TMyObject.Create(22)); end;   procedure TForm1.ListBox1Click(Sender: TObject); begin   ShowMessage(IntToStr(TMyObject(ListBox1.Items.Objects[ListBox1.ItemIndex]).i)); end;   end.

[BorodaOleg]

Ну да, спасибо, все получилось
Я бы наверное неделю парился, пока додумался бы создать дополнительный класс с переменной i: IXMLNode внутри

Еще один вопрос напросился, в описании интерфейсов так и не сообразил, запутали они меня своими счетчиками, нужно ли по окончании программы удалять все эти дополнительные классы, т.е. вызывать для них метод destroy?

[M.A.D.M.A.N.]

Разумеется.

[BorodaOleg]

Ок, спасибо!