Скачать: CL | DM;

Работа с 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]

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

---

← →
oldman ©   (2008-07-02 13:39) [4]

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


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

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

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

---

← →
Игорь Шевченко ©   (2008-07-02 13:40) [5]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c