VPF::перенос элементов между listbox - Форум программистов

dize

Дата 13.11.2009, 17:21 (ссылка)

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

Загрузка ...

Шустрый

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

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

В случае если использовать этот вариант, то при последовательном выборе значений из listbox1 и добавлении их в listbox2 идет замена, а не добавление..

Код


var
  StrList:TStringList;
  i:integer;
begin
  StrList:=TStringList.Create;
    try
      for i:=0 to ListBox1.Items.Count - 1 do
         if ListBox1.Selected[i] then  StrList.Add(ListBox1.Items[i]);
         ListBox2.Items.Assign(StrList);
      finally
  FreeAndNil(StrList);
  listbox1.DeleteSelected;
end

Как изменить этот кусок кода, чтобы элементы не заменялись, а именно добавлялись к списку listbox2, таким образом обеспечивая в сумме одинаковое количество элементов в двух листбоксах?

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

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

~FoX~

Дата 13.11.2009, 17:50 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 5
Всего: 68

dize, Странный какой то код...

Код


if ListBox1.Selected[i] then begin 
  StrList.Add(ListBox1.Items[i]);
  ListBox2.Items.Add(ListBox1.Items[i]);
end; // if

Замена потому что по выходу из try ты делаешь FreeAndNil(StrList), соответственно при возникновении следующем события StrList уже пуст

Это сообщение отредактировал(а) ~FoX~ - 13.11.2009, 17:51

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

…множественность никогда не следует полагать без необходимости…

dize

Дата 13.11.2009, 18:01 (ссылка)

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

Загрузка ...

Шустрый

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

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

~FoX~, благодарю smile

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

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

~FoX~

Дата 13.11.2009, 18:02 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

Репутация: 5
Всего: 68

Просто интересно, а на кой StrList вообще там нужен?

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

…множественность никогда не следует полагать без необходимости…

Beltar

Дата 13.11.2009, 19:10 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 0
Всего: 7

А в готовых формах дельфового репозитория, уже имется заготовка из 2-х листбоксов, между которыми можно кидать данные.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

dize

Дата 16.11.2009, 15:19 (ссылка)

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

Загрузка ...

Шустрый

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

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

Цитата(~FoX~ @ 13.11.2009, 18:02

)

Просто интересно, а на кой StrList вообще там нужен?

Как видно не нужен smile

Использовал по незнанию..

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

- Скажите, Большой Брат существует в том же смысле что и я? - Вы не существуете.

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