Особенности виртуального ListBox при отображении больших объемов информации

[tsar_]

Всем привет!
Как же давно я тут не был...

А теперь по сути.
Извлек из закромов программку-словарь собственного изготовления (ей лет 5 уже).
На ней виртуальный ListBox для отображения списка терминов, которые хранятся в обычном текстовом файле (структура файла "термин" табуляция "перевод", в листбоксе отображается только "термин").
Когда словарь небольшой, скажем, несколько сотен терминов, - все гут.
Но когда терминов порядка сотни тысяч (переделал какой-то готовый толковый словарь, там термины от "А" до "Я") невозможно прокрутить ListBox до конца, где-то на середине (буква "О") слова начинают повторяться с "А".
Смотрим гифку https://image.ibb.co/nNtF8J/wtf.gif
Компилил в D7 и D2010.
Как бороться?

[Pavia]

Искать ошибку у себя.
У меня нормально.

procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
 var Data: String);
begin
 Data := ListAns[Index];
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 i:Integer;
 str:String;
 Time1,Time2:Integer;
begin
Time1:=GetTickCount;

str:=Edit1.Text;
Search(str,List,ListAns);
ListBox1.Count := ListAns.Count;

Time2:=GetTickCount;

caption:=Format('Ôàéëîâ=%d; âðåìÿ=%d',[ListAns.Count,Time2-Time1]);
end;

[min@y™]

Давай сюда, буду посмотреть.

[Pavia]

PS. 100 000 - это большой словарь. Если он больше 4 ГБ то D7 не умеет правильно делать seek по файлу тут нужен XE.

[tsar_]

Архивчик с проектом
https://drive.google.com/open?id=1XY...X1Pyl1lZtYIHxW
Надеюсь правильно выковырял все, что нужно.
Внутри два файлика .vcb - это словари, один маленький, другой тот самый, обезобразивший прекрасную теорию фактом своего существования.

[min@y™]

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

Архивчик с проектом
https://drive.google.com/open?id=1Uo...PoeeCCdiEIK2c7

Скачать удалось только через анонимайзер. Факинг роскомпозор сука!

https://coub.com/view/16u07w

[min@y™]

Скомпилить не удалося.
Ашыпка вот:

000026.png

[tsar_]

Очень жаль

[min@y™]

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

Очень жаль

Я честно старался, чувак!

[DIONISKA]

Попробуй:

  TListBox = class(stdctrls.TListBox)
  private
    procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;
  end;

{...}

{ TListBox }

procedure TListBox.WMVScroll(var Msg: TWMVScroll);
var 
   ScrollInfo   :TScrollInfo;
begin
  Msg.Result:=0;
  case msg.ScrollCode of
  SB_THUMBPOSITION: Exit;
   SB_THUMBTRACK:
      begin
          ZeroMemory(@ScrollInfo, SizeOf(ScrollInfo));
          ScrollInfo.cbSize := SizeOf(ScrollInfo);
          ScrollInfo.fMask := SIF_POS or SIF_TRACKPOS;
          if GetScrollInfo(Handle, SB_VERT, ScrollInfo) and
            (ScrollInfo.nTrackPos <> ScrollInfo.nPos) then
           TopIndex := TopIndex + ScrollInfo.nTrackPos - ScrollInfo.nPos;            
      end
   else inherited;    
  end;
end;