Главная страница
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.046 c
14-33809
МАКСИК
2003-08-22 08:20
2003.09.11
Вопрос именно по API


1-33541
VISA
2003-08-29 12:58
2003.09.11
Проиграть wav в фоновом режиме


1-33607
som
2003-09-01 13:27
2003.09.11
Как программно создать ярлык?


1-33558
DrFox
2003-08-29 00:48
2003.09.11
Как засунуть свою прогу в System Tray


6-33710
Maxim Pshevlotsky
2003-07-08 15:59
2003.09.11
Как узнать скорость передачи данных на FTP сервер????