Главная страница
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.015 c
14-31410
AlexRush
2003-06-25 18:41
2003.07.10
Delphi. Перспективы.


14-31511
k-man
2003-06-24 18:38
2003.07.10
Frigate


3-31156
kaif
2003-06-18 19:35
2003.07.10
Сообщение о причинах зависания IB


3-31140
Silver_
2003-06-18 14:29
2003.07.10
ADODataSetDETAIL.Filter не катит. Приходится делать так ...


14-31499
Soft
2003-06-22 00:59
2003.07.10
Опрос: операционные системы.