VPF::Операции с полями таблиц. - Форум программистов

Berliner

Дата 19.4.2006, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2

Здраствуйте, задача такая: значит есть 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;

x77

Дата 19.4.2006, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 1
Всего: 22

Код


for i := 0 to ListBox1.Items.Count - 1 do
  if ListBox1.Selected [i] then begin
    // присваиваешь всё, что хочешь в ListBox1.Items [i] - он сейчас выделен
  end;

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »