Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.10;
Скачать: CL | DM;

Вниз

Фильтр   Найти похожие ветки 

 
TDIONIS ©   (2003-06-25 19:32) [0]

Всем привет! Понимаю, что вопрос глупый, но все когда - то учились. Не подскажите процедуру, которая фильтрует содержимое ListBox1 по Edit1?Например, ListBox1.Items содержит b1, b2, c3, а после того, как в Edit1.Text появляется b, то в ListBox1 остаётся только b1 и b2.


 
Anatoly Podgoretsky ©   (2003-06-25 19:47) [1]

ListBox1.Clear/ListBox1.Add


 
TDIONIS ©   (2003-06-26 12:24) [2]

Вообще я могу добавить и удалить содержимое, надо же!Вопрос не в этом.


 
DelphiN! ©   (2003-06-26 13:30) [3]

Если тебе нужно удалить последнюю запись в listbox-е, то;
listbox1.Items.Strings[listbox1.Items.Count-1]:= "";
А вобще объясняй понятней


 
Smithson ©   (2003-06-26 13:54) [4]

Нет такой процедуры, пиши сам.


 
QUE ©   (2003-06-26 14:11) [5]

for i:=1 to length(Edit1.Text) do
begin
if copy(ListBox1.Items[i].Text,1,i) <> Edit1.text then del.
end;

Я с точки зрения синтаксиса написал не правилно ... но идея есть


 
Alex_Sudakov ©   (2003-06-26 14:55) [6]

Тогда уж
if ListBox1.Items.IndexOf(Edit1.Text)...


 
QUE ©   (2003-06-26 14:58) [7]

>Тогда уж
> if ListBox1.Items.IndexOf(Edit1.Text)...

Так остануться остальные, а в моем случае которые не нужно те погибнут ....


 
Alex_Sudakov ©   (2003-06-26 15:04) [8]

Прошу прощения, не понял вопроса. Тогда вот так:
if Pos(Edit1.Text,ListBox1.Items[i])=0 then del;

В твоем случае строки удалятся только если они ПОЛНОСТЬЮ совпадают, а у человека другая задача...



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

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

Наверх




Память: 0.48 MB
Время: 0.017 c
14-31457
b_baranov
2003-06-24 00:02
2003.07.10
Как


3-31083
OlegM
2003-06-16 13:11
2003.07.10
Вопрос по MySQL


1-31257
zolotov
2003-06-30 00:20
2003.07.10
Customize ToolBar2000


6-31395
Del
2003-05-01 00:41
2003.07.10
Как сделать сервер с использованием WinSock. В проекте без форм!


3-31149
Oleg
2003-06-18 17:39
2003.07.10
Ошибка из-за индекса