Поиск в listbox, но дургой

[Черничный]

Влепил два поиска в программе:
Это в editChange:
ListBox1.Perform(LB_SELECTSTRING, -1, longint(Pchar(Edit1.text)));
Это в listboxkeyup:
ListBox1.Perform(LB_SELECTSTRING, -1, longint(Key));

Отличие: Поиск в listboxkeyup нужно вводить без паузы тогда будет срабатывать так же как и через edit.
Listbox содержить такие данные:
...
Петров Вадим
Комарова Ольга
Валентин "Пирок" Шнурков
и тд

Но вопрос в другом. К примеру, возьмем этот же edit, и начну вбивать. listbox выделит только ту строчку где есть полное совпадение с уже вбитым текстом в edit с началом строки в listbox.

Поехали дальше. Фаимилию я вспоминаю не сразу, в то время когда имя помню всегда. Печатаю имя и listbox должен отобразить строчку где искомое из edit совпадает с какой либо строчкой в нем. Как реализовать?

[rpy3uH]

хорошее задание!

Сообщение от Черничный

Но вопрос в другом. К примеру, возьмем этот же edit, и начну вбивать. listbox выделит только ту строчку где есть полное совпадение с уже вбитым текстом в edit с началом строки в listbox.

событие onChange

procedure TForm1.Edit1Change(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to ListBox1.Count-1 do
   if copy(ListBox1.Items[i],1,length(Edit1.Text))=Edit1.Text then
    begin
     ListBox1.Selected[i]:=true;
     exit;
    end;
end;

Сообщение от Черничный

Поехали дальше. Фаимилию я вспоминаю не сразу, в то время когда имя помню всегда. Печатаю имя и listbox должен отобразить строчку где искомое из edit совпадает с какой либо строчкой в нем. Как реализовать?

событие onChange

procedure TForm1.Edit1Change(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to ListBox1.Count-1 do
   if pos(Edit1.Text,ListBox1.Items[i])>0 then
    begin
     ListBox1.Selected[i]:=true;
     exit;
    end;
end;

[Черничный]

ерхнй код вообще как то по левому работает. Сработал один раз с (начала строки в listbox)
А второй ищет то же только по начальным данным в строчке

[rpy3uH]

всё работает нормально! не забывай, что код чувствителен к регистру.

тоже самое только не чувствительное к регистру

Сообщение от Черничный

Но вопрос в другом. К примеру, возьмем этот же edit, и начну вбивать. listbox выделит только ту строчку где есть полное совпадение с уже вбитым текстом в edit с началом строки в listbox.

событие onChange

procedure TForm1.Edit1Change(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to ListBox1.Count-1 do
   if AnsiUpperCase(copy(ListBox1.Items[i],1,length(Edit1.Text)))=AnsiUpperCase(Edit1.Text) then
    begin
     ListBox1.Selected[i]:=true;
     exit;
    end;
end;

Сообщение от Черничный

Поехали дальше. Фаимилию я вспоминаю не сразу, в то время когда имя помню всегда. Печатаю имя и listbox должен отобразить строчку где искомое из edit совпадает с какой либо строчкой в нем. Как реализовать?

событие onChange

procedure TForm1.Edit1Change(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to ListBox1.Count-1 do
   if pos(AnsiUpperCase(Edit1.Text),AnsiUpperCase(ListBox1.Items[i]))>0 then
    begin
     ListBox1.Selected[i]:=true;
     exit;
    end;
end;