Скачать: CL | DM;

Возможно ли в 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;

---

← →
dplz ©   (2009-04-10 16:18) [9]

Спасибо!

---

← →
Игорь Шевченко ©   (2009-04-10 16:58) [10]

MsGuns ©   (10.04.09 15:59) [8]


> Мне нужно найти строки где есть "Пет"(в данном случае 0,
>  1, 3).

---

← →
Anatoly Podgoretsky ©   (2009-04-10 17:58) [11]

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

---

← →
{RASkov} ©   (2009-04-10 18:20) [12]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.007 c