I have a TVirtualTable with some field names. One of them is TDateTime.
I populate this way
Code: Select all
HistoryTable.First;
while not HistoryTable.Eof do
begin
lvItem := lvHistory.Items.Add;
HistoryImageList.AddIcon(GetIcon(HistoryTableProcessPath.AsString, isSmall));
lvItem.Caption := ExtractFileName(HistoryTableProcessPath.AsString);
lvItem.ImageIndex := HistoryImageList.Count - 1;
lvItem.SubItems.Add(IntToStr(HistoryTable.RecNo));
HistoryTable.Next;
end;
I tried IndexFieldNames but it didn't help, I've got the same result.
Any help is greatly appreciated.