Есть ли компонент - аналог listbox позволяющий листать, отображать, работать с 150 тыс. строк?

[Delphi_ProGer]

Лучше уже разбить хотя бы слова по алфавиту, например, нажимаем в первом листбоксе на "Б" и во втором листбоксе появляться соотвествующие слова.

[Suny-o]

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

Включаем Style = lbVirtual
Назначаем обработчик OnData = ListBoxData
Используем любое хранилище Ваших данных, например TStringList.
Скорость работы будет зависить от времени заполнения хранилища.

Это очень интересно, а можно пример?

[ReportCube]

Пример чего? Организации хранилища? Так нам неизвестно количество данных для единицы хранения. Мы знаем предполагаемое запредельное количество Item-ов, которые предполагаете показать пользователю. А этого явно недостаточно для каких-то рекомендаций

[Suny-o]

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

Пример чего? Организации хранилища? Так нам неизвестно количество данных для единицы хранения. Мы знаем предполагаемое запредельное количество Item-ов, которые предполагаете показать пользователю. А этого явно недостаточно для каких-то рекомендаций

Правильно ли я понимаю, что программа должна выглядеть так:

var
  Form1: TForm1;
  tstr:Tstrings;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
for n:=1 to 150000 do
 begin
 ListBox1.Items.Add(inttostr(n));
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var n:integer;
begin
for n:=1 to 150000 do
 begin
 tstr.Add(inttostr(n));
 end;
 ListBox1.Style:=lbVirtual;
 ListBox1.OnData:=ListBoxData;
 ListBox1.Items:=tstr;
end;

Я говорю о коде для кнопки 2.

Кстати компилятор выдает ошибку:
[Error] prob0.pas(47): Undeclared identifier: 'ListBoxData'

[Delphi_ProGer]

Кстати компилятор выдает ошибку:
[Error] prob0.pas(47): Undeclared identifier: 'ListBoxData'

Это процедура, котору вы должны вручную обьявить.

[Suny-o]

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

Это процедура, котору вы должны вручную обьявить.

А что должна эта процедура делать?

[Delphi_ProGer]

А это уже вы пишите, что там делать.

[Suny-o]

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

Это процедура, котору вы должны вручную обьявить.

Исправил программу

var
  Form1: TForm1;
  tstr:Tstrings;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
for n:=1 to 150000 do
 begin
 ListBox1.Items.Add(inttostr(n));
 end;
end;

procedure ListBoxData;
begin
ListBox1.Items:=tstr;
end;

procedure TForm1.Button2Click(Sender: TObject);
var n:integer;
begin
for n:=1 to 150000 do
 begin
 tstr.Add(inttostr(n));
 end;
 ListBox1.Style:=lbVirtual;
 ListBox1.OnData:=ListBoxData;
end;

Выдает ошибку
[Error] prob0.pas(52): Incompatible types: 'method pointer and regular procedure'

[Slym]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Data(Control: TWinControl; Index: Integer;
      var Data: String);
  private
    tstr:TStrings;
  public
    { Public declarations }
  end;

var Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var n:integer;
begin
  tstr:=TStringList.Create;
  for n:=1 to 150000 do
  begin
    tstr.Add(inttostr(n));
  end;
  ListBox1.Count:=tstr.Count;
end;

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

end.

[Suny-o]

Спасибо Slym;
В итоге программа выглядит так:

unit prob0;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ListBox1Data(Control: TWinControl; Index: Integer; var Data: String);
  private
    tstr:TStrings;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var n:integer;
begin
  tstr:=TStringList.Create;
  for n:=1 to 150000 do
  begin
    tstr.Add(inttostr(n));
  end;
  ListBox1.Style:=lbVirtual;
  ListBox1.Count:=tstr.Count;
end;

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
for n:=1 to 150000 do
 begin
 ListBox1.Items.Add(inttostr(n));
 end;
end;

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

procedure TForm1.Button2Click(Sender: TObject);
var n:integer;
begin
 ListBox1.Style:=lbVirtual;
 ListBox1.OnData:=ListBox1Data;
 Listbox1.Repaint;
end;

end.