Объекты и ListBox

[Glauberzu]

Я хочу каждой строке поставить в соответствие по объекту произвольного типа.
Имеется след. код

type
Sample = class(TObject)
Number: Integer;
end;  // объявляю класс

var
Test: Sample;

begin:
Test:=Sample.Create;
Test.Number:=3;
... //инициализирую окно в котором есть listbox, указываю родителя и прочие красивости

Baza:=Flistbox.Items.Create; //инизиализирую область памяти под строки

AFForm.Flistbox.Items.AddObject('Testing in progress', Test);

Test:=AFForm.Flistbox.items.object[0]; //попытка вернуть объект по индексу, компилятор выдает ошибку (несовметимость типов Tobject и Sample)

end;

Есть еще такая вариация добавления
AFForm.Flistbox.AddItem('Testing in progress', Test); ... чем она отличиается от приведенной, не знаю (но не работает ни та, ни эта). Если расскажите - скажу "спасибо" =)

PS Если просто добавлять строки через AFForm.Flistbox.Items.Append (тоесть без объектов) все компилится и работает на "ура".

[ZuBy]

Сообщение от Glauberzu

Я хочу каждой строке поставить в соответствие по объекту произвольного типа.
Имеется след. код

type
Sample = class(TObject)
Number: Integer;
end;  // объявляю класс

var
Test: Sample;

begin:
Test:=Sample.Create;
Test.Number:=3;
... //инициализирую окно в котором есть listbox, указываю родителя и прочие красивости

Baza:=Flistbox.Items.Create; //инизиализирую область памяти под строки

AFForm.Flistbox.Items.AddObject('Testing in progress', Test);

Test:=AFForm.Flistbox.items.object[0]; //попытка вернуть объект по индексу, компилятор выдает ошибку (несовметимость типов Tobject и Sample)

end;

Есть еще такая вариация добавления
AFForm.Flistbox.AddItem('Testing in progress', Test); ... чем она отличиается от приведенной, не знаю (но не работает ни та, ни эта). Если расскажите - скажу "спасибо" =)

PS Если просто добавлять строки через AFForm.Flistbox.Items.Append (тоесть без объектов) все компилится и работает на "ура".

убрать нужно, то что я выделил
и еще Test.free сделай, потом "ворачивай", и вроде там через @

[BOBAH13]

//попытка вернуть объект по индексу, компилятор выдает ошибку (несовметимость типов Tobject и Sample)

Учим Азы, а именно Приведение типов
Пример: TSample(TObject)