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

Вниз

удаление почтового сообщения   Найти похожие ветки 

← →
anton773 ©   (2006-04-04 19:47) [0]

Здравствуйте! Пытаюсь удалить сообщения с почтового ящика.(отмеченные галочкой в listviev) Никак не пойму почему он не работает.Помогите ПЛЗ разобраться.Аналогичный код но нацеленный на загрузку помеченных сообщений прекрасно работает procedure TForm2.N7772Click(Sender: TObject);
var
f: integer;

begin
if IdPOP31.Connected= false then
connect;
For f:= 0 to ListView1.Items.Count-1 do
begin
if ListView1.Items[f].Checked= true
then
begin
ListView1.Items[f].Selected:=true;
IdPOP31.Delete(ListView1.Selected.Index + 1);
if f= ListView1.Items.Count then
IdPOP31.Disconnect;
end;
end;
end;

---

← →
Dmitrij_K   (2006-04-04 20:54) [1]

Удаление сообщений происходит ЕСЛИ сделать дисконест.
а условие
if f= ListView1.Items.Count then IdPOP31.Disconnect;
всегда будет false

---

← →
anton773 ©   (2006-04-04 21:35) [2]

Спасибо за ответ.А что можно предпринять? Делать дисконнект после удаления каждого сообщения а потом по новой подключаться - долго все это.Мне надо удалить несколько сообщений за раз.

---

← →
anton773 ©   (2006-04-09 18:54) [3]

Пока ждал ответа сам догадался как удалить несколько сообщений за раз.Собственно вот и он(может кому пригодится):                          procedure TForm2.N7772Click(Sender: TObject);
var
f: integer;

begin
try
if IdPOP31.Connected= false then
connect;
For f:= 0 to ListView1.Items.Count-1 do
begin
if ListView1.Items[f].Checked= true
then
begin
ListView1.Items[f].Selected:=true;
IdPOP31.Delete(ListView1.Selected.Index + 1);
end;
end;
finally
IdPOP31.Disconnect;
end;
end;

---

← →
fess ©   (2006-08-15 10:16) [4]

Большое спасибо.... помогло... ;)

---

← →
fess ©   (2006-08-15 10:16) [5]

Большое спасибо.... помогло... ;)

---

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

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

Наверх

Память: 0.45 MB
Время: 0.013 c