ListBox , Поиск подстроки

[sten_11]

А все получилось, надо было к регистру общему привести

[shm]

Цитата sten_11 @ 08.10.14, 12:21

Дело в том, что я не хочу в рамках этой задачи связываться с БД

на билдере это нск. строк кода.

[sten_11]

Цитата shm @ 08.10.14, 12:48

вроде автора перебор не устраивал, а теперь вроде поменял мнение.

А что делать ))

Добавлено 08.10.14, 12:52
Итого получилось

void __fastcall TForm1::Edit1Change(TObject *Sender)
{
ListBox2->Clear();
int i=0;
bool compre = false;
while (i<ListBox1->Items->Count)
 {
  compre = ListBox1->Items->Strings[i].Pos(Edit1->Text.Trim());
  if (compre)
  {
   ListBox2->Items->Add(ListBox1->Items->Strings[i]);
  }
  compre = false;
  i++;
 }
}

Принимаю более оптимальные коды.

Добавлено 08.10.14, 12:58
В догонку. Как в Мемо вывести строку из ListBox на которой активный курсор. Можно по двойному клику на ListBox .

[Relaxander]

Цитата sten_11 @ 08.10.14, 12:50

более оптимальные коды

а почему compre - bool и зачем compre = false?

[sten_11]

Цитата Relaxander @ 08.10.14, 13:02

а почему compre - bool и зачем compre = false?

Справедливо

if (ListBox1->Items->Strings[i].Pos(Edit1->Text.Trim()))

[Bas]

Цитата Relaxander @ 08.10.14, 12:42

а слона-то никто и не заметил. AnsiPos возвращает > 0, если находит

По памяти писал, спутал наверное с -1.

Сообщение отредактировано: Bas - 08.10.14, 14:16

[deoxpa]

Народ, простите что тему старую поднимаю. Мне пригодилась эта ветка. Но появился вопрос. Есть ли возможность из этого кода убрать чувствительность к регистру?

У меня получилось только привести всё к нижнему регистру. Но некоторые люди и грамотно пишут и будут писать первую букву большую. Тогда фильтрация уже не срабатывает.

ListBox2->Clear();
int i=0;
bool compre = false;
while (i<ListBox1->Items->Count)
 {
  compre = ListBox1->Items->Strings[i].LowerCase().Pos(Edit1->Text.Trim());
  if (compre)
  {
   ListBox2->Items->Add(ListBox1->Items->Strings[i]);
  }
  compre = false;
  i++;
 }

[Славян]

Убрать чувствительность, это так:

ListBox2->Clear();
int i = 0;
while( i<ListBox1->Items->Count )
{
    int compre = ListBox1->Items->Strings[i].LowerCase().Pos( Edit1->Text.LowerCase().Trim() );
    if( compre ) ListBox2->Items->Add( ListBox1->Items->Strings[i] );
    i++;
}

[deoxpa]

И как я сам не додумался Спасибо. Отлично работает.