Возможно ли в listbox зделать такое условие?

← →
dplz © (2009-04-10 15:39) [0]

Мне надо определить нужную строчку по буквам в ней. К примеру вот листбокс:
0. Вася Петров
1. Маша Петунина
2. Игорь Иванов
3. Петр Сидоров
Мне нужно найти строки где есть "Пет"(в данном случае 0, 1, 3). Как это делать?

← →
MsGuns © (2009-04-10 15:40) [1]

перебором строк со сравнением части строки с шаблоном

← →
dplz © (2009-04-10 15:45) [2]

можно пример кода, я не знаком с этим

← →
Palladin © (2009-04-10 15:46) [3]

с чем этим?

← →
dplz © (2009-04-10 15:50) [4]

ну я в смысле по примерам лучше понимаю) А перебором я пытался, ничего толкового не вышло, исходников тоже не осталось...

← →
Palladin © (2009-04-10 15:55) [5]

повторение - мать учения

← →
Kolan © (2009-04-10 15:55) [6]

А куда же они (исходники) делись? Попробуйте восстановить по памяти.

Подсказка — для цикла используйте for, для условия if, для сравнения =.

← →
dplz © (2009-04-10 15:58) [7]

Очень смешно. Спасибо за совет!!!!!!

← →
MsGuns © (2009-04-10 15:59) [8]

function TForm1.SeekListBoxLine(ListBox: TListBox; Smp: string; Loc: boolean = true): boolean; var i,ndx: integer; begin ndx := -1; for i :=0 to ListBox.Items.Count-1 do if AnsiUpperCase(ListBox.Items[i],1,Length(Smp))=AnsiUpperCase(Smp) then begin ndx := i; break; end; if (ndx>-1) and Loc then ListBox.ItemIndex := ndx; result := (ndx>-1); end;

Спасибо!

Ну вот опять дурное желание без указания самой задачи.

var N: Integer; begin ListBox.MultiSelect:=True; for N:=0 to ListBox.Count-1 do ListBox.Selected[N]:=Pos("Пет", ListBox.Items[N])>0; end;

Возможно ли в listbox зделать такое условие? Найти похожие ветки