Здраствуйте, задача такая: значит есть 2 ListBox-а на форме. В одном мулти селект включен, а на втором не включен. Мне нужно чтобы когда я выбираю 2 или больше записей из ListBox1(там где мулти селект включен), чтобы переменным присваивались значения с которыми я работаю, у меня код и там присваиваются значения только когда выделен один элемент, а как сделать чтобы я мог работать со значениями перемеенных выделенных элементов?
| Код |
procedure TForm2.ListBox1Click(Sender: TObject);
//on click takes all information about toppings
begin
k:=ListBox1.ItemIndex;
s:=ListBox1.Items.Strings[k];
Form1.Query1.Close;
Form1.Query1.SQl.Clear;
Form1.Query1.SQL.Add('select * from package where code=:toppingParam');
Form1.Query1.Params.ParseSQL(Form1.Query1.SQL.Text, True);
Form1.Query1.ParamByName('toppingParam').AsString:=s;
Form1.Query1.Open;
code:=Form1.Query1.Fields[0].AsString + ' ';
topping:=Form1.Query1.Fields[1].AsString + ' ';
base:=Form1.Query1.Fields[2].AsString+' ';
size:=Form1.Query1.Fields[3].AsString;
price:=Form1.Query1.Fields[4].AsString;
AddResult:=code+topping+price;
end;
|
|