delphi listbox 添加数据

怎么把 数据库 当中的某一列stu_id数据全部添加到listbox当中啊
var s:string;
close;
sql.Clear;
sql.Add('select stu_id from students');
s:=fieldbyname('nnbianhao').AsString;
open;
first;
while not EOF do
begin
ListBox1.Items.Add(s);
next;
end ;
好像 S 对应的是一个数据，是不是还要用循环啊，大家帮帮忙。。。。

这样做出来加的都是第一个数据。。。。。。。

是不是加了一串相同的?
循环体中s都是不变的

一个listbox删除的数据，删除前复制给变量，当删除后，另一个listbox就相应append这个变量中的数据

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息