| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Проблема с удалением письма (IdPop31)
Delphin © (2003-07-09 20:51:00)
Есть такой код:
................
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;
Ошибок нигде не выдаёт, и письма тоже не удаляет. Может кто-то знает, как с этим бороться?
Delphin (2003-07-10 12:12:00) [1]
Всё разобрался, просто не так поставил условия перед выполнением этой процедуры ;)
Е-Моё имя (2003-07-10 09:59:00) [2]
может сессию закрыть?
| |
