请问这个循环怎么实现？？(50分)

L

liangzi2222

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #1

[][]是一个最笨的群发邮件。（不会做坏事的，请放心，因老板要用，所以才做）。
在窗口中放置一个ADOQuery，想在发送前，通过一个循环先把Access相应表中将E-mail地址
查出来放在一个不可见的ListBox中，发送时，通过另一个循环依次将ListBox中的内容取出
赋给相关变量，再实现发送。我做时，循环老是出问题。希望能回答。谢谢。

 

Q

qianwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #2

发完了ListBox中的节点是否要删除

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #3

是这样么?
procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
begin
for I := 0 to ListBox1.Count-1 do
begin
//x := ListBox1.Items
end;
end;

 

Q

qianwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #4

var
i: integer;
begin
for i:=listbox.items.count-1 to 0 do
begin
SendMail(listbox.items,...);
listbox.items.delete(i)
end;
end;

 

饿

饿狼传说

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #5

哪个循环，把源代码贴出来看看

 

L

liangzi2222

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #6

多人接受答案了。