^TMyRec;
TMyRec = record
I : integer;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
P : PMyRec;
begin
New(P);
P.I := 42;
ListBox1.AddItem('One',TObject(P));
end;
а что делать если не знаешь заранее количество элементов в listbox?
Ты тут добавил и не знаешь количество В чем вопрос то (:
Интересно вы добавляете элемент в листбокс. Я обычно через ListBox.Items.Add добавляю, так как Items это TStrings
ты ж по идее как надо всё и сделал. только что позже разрушить что бы не текло
Обсуждают сегодня