我想要用两个LISTBOX,点击LISTBOX1的一个值后,LISTBIX2显示和LISTBOX1点击的有关的内容。
procedure Tksbjform.ListBox1Click(Sender: TObject);
var
m,i:integer;
ss:array[0..1] of string;
begin
m:=listbox1.itemindex;
ss[0]:=listbox1.items[m];
ss[1]:='select * from spxlzd where ssspdl=ss[0]';
with query1 do
begin
close;
sql.clear;
sql.add(ss[1]);
open;
for i:=1  to recordcount do
begin
listbox2.Items[i-1]:=query1.fieldvalues['spxlmc'];
query1.next;
end;
end;
end;
为什么运行后会出错,是不是因为SS[0]不能放在SQL语句中?