Главная страница
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.023 c
1-33608
dataMaster
2003-09-01 13:32
2003.09.11
Как запретить изменение ширины колонок в ListView


14-33762
Viktor Kushnir
2003-08-19 08:58
2003.09.11
Патентование


3-33487
off
2003-08-20 09:45
2003.09.11
Система упала и отжалась. Чем лечить?


3-33465
Behemoth
2003-08-21 08:52
2003.09.11
Как вывести правильное значение среднего по целочисленному полю.


1-33632
tgdgdfg
2003-08-30 20:05
2003.09.11
Сортировка в TreeView