VPF::Вставка строки в любой Item в ListBox'е

mr.Anderson

Дата 24.9.2006, 12:43 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Поместил на форму ListBox и пишу следующее:

Код


ListBox.Items.Strings[ 2 ] := 'mystring';

При срабатывании этого кода получаю ошибку:

Цитата

Unable to insert string.

Почему невозможно вставить строку? И как это организовать? Если возможно через другие компоненты, то подскажите, через какие (только плз говорите на какой вкладке они находятся, я еще плохо знаю Делфи).

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

Alexeis

Дата 24.9.2006, 12:50 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

так просто нужная строка еще не создана. Строки добавляет метод add и Insert

p.s. можно и проще записать

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items[2] := 'text';
end;

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

mr.Anderson

Дата 24.9.2006, 12:56 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

Не вышло. Ни первым, ни вторым методом. Второй метод выкинул все ту же ошибку, и первый:

Код


ListBox.Items.Insert( 2, 'mystr' );

Выдает то же самое...

Это сообщение отредактировал(а) sim7 - 24.9.2006, 13:00

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

Alexeis

Дата 24.9.2006, 13:00 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

sim7, Я же говорю для того чтоб иметь возможность изменить вторую строку надо чтоб она была создана. Такая ошибка возникает именно в этом случае. Просто добавьте нужное количество пустых строк методом Add(''); а потом уже можно будет менять любую из них по своему усмотрению.

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

mr.Anderson

Дата 24.9.2006, 13:06 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

alexeis1, спасибо, разобрался! smile

Получилось вот так:

Код


...
var x: ShortInt;
...
 For x:=ListBox.Items.Count-1 To 2 Do
  ListBox.Items.Add( '' );

 ListBox.Items.Strings[ 2 ] := 'mystr';

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

demon13

Дата 24.9.2006, 13:18 (ссылка)

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

Загрузка ...

Шустрый

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

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

Может лучше без лишних переменных?

Код


while ListBox1.Count < 2 do
 ListBox1.Items.Add('');
ListBox1.Items.Strings[2] := 'mystr';

mr.Anderson

Дата 24.9.2006, 15:36 (ссылка)

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

Загрузка ...

iOS Lead Developer

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

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

demon13, согласен. smile

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

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