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

Вниз

Проблема с удалением письма (IdPop31)   Найти похожие ветки 

← →
Delphin ©   (2003-07-09 20:51) [0]

Есть такой код:

................
I:=IdPOP31.CheckMessages;
Repeat
ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
IdPOP31.Retrieve(X,IdMessage1);
FR:=IdMessage1.From.Address;
IF FR=ListBox1.Items[ListBox1.ItemIndex] Then
IdPOP31.Delete(X)
Else
IdMessage1.Clear;
IF (ListBox1.ItemIndex+1=ListBox1.Items.Count)AND
(X<I)
Then Begin
ListBox1.ItemIndex:=0;
X:=X+1;
Edit2.Text:=IntToStr(X);
End;
Until (ListBox1.ItemIndex+1=ListBox1.Items.Count)
End;

Ошибок нигде не выдаёт, и письма тоже не удаляет. Может кто-то знает, как с этим бороться?

---

← →
Е-Моё имя ©   (2003-07-10 09:59) [1]

может сессию закрыть?

---

← →
Delphin ©   (2003-07-10 12:12) [2]

Всё разобрался, просто не так поставил условия перед выполнением этой процедуры ;)

---

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

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

Наверх

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