Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.013 c
3-33433
Жук
2003-08-21 14:56
2003.09.11
Скрипт данных из одной БД и


3-33494
Nikkkkk
2003-08-20 11:03
2003.09.11
Вопрос по TQuery


3-33510
uhhax
2003-08-20 03:55
2003.09.11
нестандартный просмотр отчета


1-33561
kuchumovkv
2003-08-28 22:28
2003.09.11
WinExec


7-33823
Zilog
2003-06-16 14:31
2003.09.11
Как можно организовать передачу данных по паре?