两个菜的问题！！小女羞了！！

Question

第一个：
各位大哥 ，怎么把LISTBOX中选中的的项给一个STRING变量呀
s:=????
怎么写呀
第二个：
sql中的我想删除一个值，应该怎么办
就是删除LISTBOX中选中的值
怎么写SQL啊？？
谢谢大家了！！！
能给出代码吗？？？？

Answer 1

s:=listbox1.items[listbox1.itemindex]'delete from table where a='''+s+''''

Answer 2

for r:=0 to listbox1.items.count-1 do
  str:=str+listbox1.items.strings[r];  二、 listbox1.DeleteSelected；

Answer 3

jinjazz(人雅的标记--落寞刺客) ，能送点给我吗？我的分也快用完了，5555555

Answer 4

ndisee() 
你的手脚还真不小，一共发了两帖就把100用光了
-------------------------------------------

Answer 5

procedure TForm2.Button10Click(Sender: TObject);
var delsql : string;
var s: string;
begin
if listbox1.Selected[listbox1.ItemIndex] then
 begin
   s:=listbox1.Items[listbox1.Itemsindex];
   listbox1.Items.Delete(listbox1.ItemIndex);   delsql:='delete guige from gedw where  guige='''+listbox1.dele+'''';
   form1.ADOQuery1.SQL.Clear;
   form1.ADOQuery1.SQL.Add(delsql);
   form1.ADOQuery1.ExecSQL;
   form1.ADOQuery1.Close;
 end;

Answer 6

s:=listbox1.items[listbox1.itemindex]
这样应该不行
listbox1.itemindex 要独立设个变量
如：
var int:integer;
begin
int:=listbox1.itemindex;
s:=listbox1.items[int];

Answer 7

procedure TForm2.Button10Click(Sender: TObject);
var delsql : string;
var s: string;
begin
if listbox1.ItemIndex>=0 then
 begin
   s:=listbox1.Items[listbox1.Itemsindex];
   listbox1.Items.Delete(listbox1.ItemIndex);   delsql:='delete from gedw where  guige='''+listbox1.dele+'''';
   form1.ADOQuery1.SQL.Clear;
   form1.ADOQuery1.SQL.Add(delsql);
   form1.ADOQuery1.ExecSQL;
   form1.ADOQuery1.Close;
 end;

Answer 8

就是嘛 原来是SQL语句写错了...

Answer 9

我先谢谢大家，我的问题解决了
谢谢
大家
但是我要问 amuclan
 你光会说你怎么不做
我没写错，是别人告诉我错了
我也鄙视你
你最讨厌了