Question

delphi 如何将ACCESS数据库中的数据和LISTBOX中的数据循环进行对比

delphi 如何将ACCESS数据库中的数据和LISTBOX中的数据循环进行对比，如果对比到有相同的数据则输出Messagebox(0,'有相同的数据','提示',0)
例：
数据库中的一个数据
abc
LISTBOX中的一个数据
abc
如果对比到两个数据相同（abc=abc）就输出上面的那句话

Answer 1

while not qry1.eof do
begin
for i:=0 to listbox.items.count-1 do
begin
if listbox.items.item[i].string=qry1.fieldbyname('字段名').asstring then
Messagebox(0,'有相同的数据','提示',0);
exit;
end;
qry1.next;
end;
//大概流程，没有测试，双层循环。祝你好运！

Answer 2

With qry1 Do
Begin
While Not eof Do
Begin
If ListBox1.Items.IndexOf(fieldbyname('字段名').asstring) <> -1 Then
Begin
Messagebox(0, '有相同的数据', '提示', 0);
exit;
End;
next;
End;
End;

Answer 3

看吧 ........