Работа с ListBox

← →
lewka-sedceed (2008-07-02 13:29) [0]

Подскажите пожалуйста почему когда программа работает вот по такому коду
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, и в содержат начале @

← →
oldman © (2008-07-02 13:33) [1]

Удалено модератором

← →
Ega23 © (2008-07-02 13:33) [2]

t и text - это опечатка или так и есть в программе?

← →
Ega23 © (2008-07-02 13:35) [3]

Кстати. Видишь, какую репутацию ты себе заработал?
Вот уже задаёшь более-менее достойный новичка вопрос - и какая реакция?

> Ega23 © (02.07.08 13:35) [3]

Почитай вопрос.
Развод, имхо!

"Почему? Мне надо удалить а,б,в. Я ставлю условие на а+б+в, все удаляется. Ставлю только на а - не все!"

Сколько можно покупаться?

На форуме обычно ответы бесплатные. Специально для нежелающих учиться и желающих халявы это положение может измениться.

Работа с ListBox Найти похожие ветки