delphi 如何获得lisbox选中的值

来源：百度知道 编辑：UC知道 时间：2024/07/06 22:02:20
delphi 如何获得lisbox选中的值
lst1.items.strings[lst1.itemindex]
不行 选不选中 他都获得
我要添加选中的值 没选的 就不添加 活添加为空

close;
sql.Clear;
sql.Add('insert svqqlv values (:SVID,:供货数量1,:供货数量2,:供货数量3,:供货速度1,:供货速度2,:供货价格1,:供货价格2,:供货价格3,:稳定性1,:稳定性2,:稳定性3,:稳定性4,:忠诚度1,:忠诚度2,:忠诚度3,:忠诚度4,:沟通度1,:沟通度2,:沟通度3,:基本分值,:最终分值)');
// parameters.ParamByName('游戏名').Value:=trim(ComboBox1.Text);
// parameters.ParamByName('供货商').Value:=trim(lst1.Items.Strings[i]);
parameters.ParamByName('SVID').Value:=trim(edt1.Text);
parameters.ParamByName('供货数量1').Value:=trim(lst1.items.strings[lst1.itemindex] );
parameters.ParamByName('供货数量2').Value:=trim(lst2.items.strings[lst2.itemindex]);
parameters.ParamByName('供货数量3').Value:=trim(lst3.items.strings[lst3.itemindex]);
parameters.ParamByName('供货速度1').Value:=trim(lst4.items.strings[lst4.itemindex]);
parameters.ParamByName(

Lst1.MultiSelect := True;//实现多选

procedure TForm1.btn1Click(Sender: TObject);
var
I :Integer;
Str : string;
begin
for I := 0 to Lst1.Count-1 do
begin
if Lst1.Selected[I] then
begin
Str := Str + Lst1.Items[I];
end;
end;

showmessage(Str);
end;