| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с ListBox [D7, XP]
lewka-sedceed © (2008-07-02 13:29:00)Подскажите пожалуйста почему когда программа работает вот по такому коду
procedure TForm1.Button3Click(Sender: TObject);
var t:string;r:integer;
begin
for r:=ListBox2.Items.Count - 1 downto 0 do
begin
text:=listbox2.Items[r];
if (pos('.com',text) = Length(t)) or (pos('@',text) =1 )
or(pos('.net',text) = Length(t)) or (pos('.ru',text) = Length(t))
then
ListBox2.Items.Delete(r);
удаляются все строки из ListBox, а когда вот по такому
procedure TForm1.Button3Click(Sender: TObject);
var t:string;r:integer;
begin
for r:=ListBox2.Items.Count - 1 downto 0 do
begin
text:=listbox2.Items[r];
if (pos('.com',text) = Length(t)) or (pos('@',text) =1 )
then
ListBox2.Items.Delete(r);
то не все удаляются.
Мне нужно чтобы удалялись строки которые не содержат в конце строки .com .net .ru, и в содержат начале @
Игорь Шевченко (2008-07-02 13:40:00) [1]На форуме обычно ответы бесплатные. Специально для нежелающих учиться и желающих халявы это положение может измениться.
oldman (2008-07-02 13:39:00) [2]
> Ega23 © (02.07.08 13:35) [3]
Почитай вопрос.
Развод, имхо!
"Почему? Мне надо удалить а,б,в. Я ставлю условие на а+б+в, все удаляется. Ставлю только на а - не все!"
Сколько можно покупаться?
Ega23 (2008-07-02 13:35:00) [3]Кстати. Видишь, какую репутацию ты себе заработал?
Вот уже задаёшь более-менее достойный новичка вопрос - и какая реакция?
oldman (2008-07-02 13:33:00) [4]Удалено модератором
Ega23 (2008-07-02 13:33:00) [5]t и text - это опечатка или так и есть в программе?
| |
