Удаление записей в ListBox ?

[min@y™]

Вот мой последний вариант, если вам не трудно покажите пожалуйста как это виртуальный ListBox ?

Тебе интернет отключили, штоли?
Или у тебя какой-то другой интернет?

[Stilet]

если вам не трудно покажите пожалуйста как это виртуальный ListBox ?

Пожалуйста:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    procedure Edit1KeyPress(Sender: TObject; var Key: char);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    st:TStringList;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  st:=TStringList.Create;
  st.LoadFromFile('Справочник слов');
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  st.Free;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
var i:integer;
begin
  with ListBox1.Items do begin
    BeginUpdate;
    Clear;
     for i:=0 to st.Count-1 do
      if pos(TEdit(Sender).Text,st[i]) then Append(st[i]);
    EndUpdate;
  end;
end;

end.

st - "виртуальный" ЛистБокс.
Идея понятна?

[min@y™]

st - "виртуальный" ЛистБокс.
Идея понятна?

неправильные пчолы.

[Stilet]

неправильные пчолы.

Почему?.......

[min@y™]

в виртуальный бокс строки не добавляют, а отрисовывают их в событии OnData.

[Аватар]

Да не дорос еще ТС до виртуального листбокса, сначала пусть просто листбокс со стилем lbStandard освоит

[Stilet]

Тьху ты... Подло... Подло... Подловил...
Ладно, согласен. Но я думаю ТС и такое подойдет.

[min@y™]

Хрен с вами, через час приду домой - напомните мне, шоб я пример на заборе написал, мож пригодится кому.
Я виртуальные ListBox и ListView юзаю сплошь и рядом. Вот сегодняшняя поделка (по просьбе чуваков из соседнего отдела):

1555568.png

[min@y™]

Да в рот вам ноги! Раззадорили, сабаки!



хотел написать выделение найденных фрагментов цветом,
но забил. очень спать хочется.

Бинарник с исходником залил на файлопомойку.
Админы! Когда разрешите 7z (хотя б 1 Мб)? Почему до сих пор такой беспредел?

[student-ua]

"Бинарник с исходником залил на файлопомойку" и где исходник ?