| 发表于:2007-05-25 12:46:094楼 得分:0 |
问题已经解决!!! procedure tmain_1.button20click(sender: tobject); var str:string; i:integer; begin for i:=0 to listbox1.count-1 do begin if listbox1.selected[i] then begin with adoquery1 do begin close; sql.clear; str:= 'delete from notices where content= ' ' '+ listbox1.items[i]+ ' ' ' '; showmessage(str); sql.add(str); EXECsql; end; end; end; listbox1.deleteselected; | | |
|