VPF::2 значения 1-го элемента listbox - Форум программистов

Kbl4AH

Дата 16.1.2009, 15:41 (ссылка)

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

Загрузка ...

Опытный

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

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

Здравствуйте.
Мне нужно чтобы для итемов листбокса хранился еще и некий флаг, который не видим пользователю.
Как это лучше реализовать?
Я только так смог придумать:

Код


var
I: Integer;
OP1, OP2: TStringList;
begin
  OP1 := TStringList.Create;
  OP2 := TStringList.Create;
  OP1.Text := '1';
  OP2.Text := '2';
  for I := 0 to 20 do
    if random(20) < 10 then
      ListBox1.AddItem(IntToStr(I), OP1)
    else
      ListBox1.AddItem(IntToStr(I), OP2);
// обращение
  if (ListBox1.Items.Objects[ListBox1.ItemIndex] as TStringList).Strings[0] = '1' then
    begin
// действие 1
    end
  else
    begin
// действие 2
    end;

Как-то горбато получилось(((
Посоветуйте, как сделать лучше?

Это сообщение отредактировал(а) Kbl4AH - 16.1.2009, 15:42

Frees

Дата 16.1.2009, 15:47 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

добавляй какойнить record там ихрани все что хочеш

Это сообщение отредактировал(а) Frees - 16.1.2009, 15:49

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

Кольцов Виктор Владимирович

THandle

Дата 16.1.2009, 15:57 (ссылка)

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

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

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

Цитата(Kbl4AH @ 16.1.2009, 15:41

)

var
I: Integer;
OP1, OP2: TStringList;
begin
  OP1 := TStringList.Create;
  OP2 := TStringList.Create;
  OP1.Text := '1';
  OP2.Text := '2';
  for I := 0 to 20 do
    if random(20) < 10 then
      ListBox1.AddItem(IntToStr(I), OP1)
    else
      ListBox1.AddItem(IntToStr(I), OP2);

Код



var
  I: Integer;
begin
  for i := 0 to  20 do
    ListBox1.Items.AddObject(IntToStr(I), TObject(Integer(Random(20) > 10) + 1));

Цитата(Kbl4AH @ 16.1.2009, 15:41

)

if (ListBox1.Items.Objects[ListBox1.ItemIndex] as TStringList).Strings[0] = '1' then

Код


    if Integer(ListBox1.Items.Objects[ListBox1.ItemIndex]) = 1 then

Kbl4AH

Дата 16.1.2009, 16:25 (ссылка)

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

Загрузка ...

Опытный

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

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

THandle, Frees, спасибо!

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