29.06.2010, 19:26
|
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,097
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Код:
var
N : Integer;
begin
ListBox1.Items.AddObject('Заголовок',TObject(34));
...
N := Integer(ListBox1.Items.Objects[ListBox1.ItemIndex]); |