Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.05.24;
Скачать: 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 вся ветка

Текущий архив: 2009.05.24;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.03 c
2-1239162302
Alex34
2009-04-08 07:45
2009.05.24
День недели в DateTimePicker


2-1239168222
Den1111
2009-04-08 09:23
2009.05.24
Проблема с ListBox


2-1239114286
микола
2009-04-07 18:24
2009.05.24
делфи и єксель


15-1237305706
Кое кто
2009-03-17 19:01
2009.05.24
Как решить уравнение(если можно)?


15-1237411802
Юрий
2009-03-19 00:30
2009.05.24
С днем рождения ! 19 марта 2009 четверг