void __fastcall TForm1::ListViewData(TObject *Sender, TListItem *Item)
{
Item->Caption = AnsiString(Item->Index);
Item->SubItems->Add("комментарий");
}
Это пропиши в дизайне:
ListView->OnData = ListViewData;
ListView->OwnerData = true;
"Заполнение":
ListView->Items->Count = 20000000;
Сброс:
ListView->Items->Count = 0;
P.S. Hо событие OnData появилось в 3-ей или 4-той стройке.
