ListBox и список значений: как соединить?

← →
malamba (2005-07-01 11:15) [0]

Наверное, каждый сталкивался в своей работе со списками значений (например:
Лена - 1 руб
Света - 15 руб
Вася - 2 руб
и т.д.)

Хотелось бы занести этот список в ListBox.
Так, чтобы в LIstBox был список Лена, Света, Вася...
А при выборе какого-нибудь значения можно было бы получить и остальное.
Выбрали Лену, узнали про 1 руб и т.д.

Можно было идти со стороны, противоложной гландам, вводить доп. массив или стринглист и соединять их вместе.
Но хотелось бы это сделать средствами самого ListBox-а.

Подскажите, может кто похоже уже делал?

← →
KilkennyCat © (2005-07-01 11:19) [1]

разделить визуально: ширина листбокса должна позволить вместить отображение только имен. :))

← →
Dimous (2005-07-01 11:21) [2]

ListBox1.Items.AddObject("Лена", TObject(1));

Integer(ListBox1.Items.Objects[0]);

← →
Digitman © (2005-07-01 11:23) [3]

with ListBox do
begin
AddItem("Лена", TObject(Pointer(1));
AddItem("Света", TObject(Pointer(15));
AddItem("Вася", TObject(Pointer(2));
end;

← →
malamba (2005-07-01 11:45) [4]

С объектом понятно, а если второй значение - строковое, то можно ли так:

ListBox1.Items.AddObject("Лена", TObject("и ведь не отдала"));

← →
Digitman © (2005-07-01 11:46) [5]

нельзя

← →
Eraser © (2005-07-01 11:50) [6]

malamba (01.07.05 11:45) [4]

Прийдётся объект создавать... или указатель на ShortString.

← →
Игорь Шевченко © (2005-07-01 12:06) [7]

ListView не проще ?

← →
Stakan © (2005-07-01 12:07) [8]

procedure TForm1.Button1Click(Sender: TObject);
begin ListBox1.Items.AddObject("Лена", TObject(PChar("И ведь не отдала"))); end; procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage(PChar(ListBox1.Items.Objects[0])); end;

← →
malamba (2005-07-01 12:27) [9]

Да, с этим понятно, если второе значение integer, то можно так использовать.
Чудненько...

А никто не пробовал возиться с
ListBox.Items.Value; и
ListBox.Items.ValueFromIndex;

Они используются для отображения именно списков параметр = значение ( как в ini файлах), однако я нигде не встречал способов занесения таких данных в listbox.

← →
malamba (2005-07-01 12:43) [10]

Запоздало: Игорь Шевченко ListView не проще ?

Нет, там дальше служебные данные, которые не нужно показывать.
Значение ключевого поля таблицы, если быть точным.
При выборе значения в ListBoxe сразу получаю без всяких заморочек ключ.

← →
Игорь Шевченко © (2005-07-01 12:47) [11]

> там дальше служебные данные, которые не нужно показывать

Не показывай.

← →
GrayFace © (2005-07-01 13:10) [12]

malamba (01.07.05 11:15)
Лена - 1 руб
Света - 15 руб
Хорошо звучит :)
Digitman © (01.07.05 11:23) [3]
TObject(Pointer(1));
Почему же не TObject(1) ?
malamba (01.07.05 11:45) [4]
С объектом понятно, а если второй значение - строковое, то можно ли так:

ListBox1.Items.AddObject("Лена", TObject("и ведь не отдала"));
Можно, например, так:
Добавление:
p:=GetMemory(length(s));
CopyMemory(p,pointer(s),length(s));

← →
GrayFace © (2005-07-01 13:13) [13]

Случайно нажал на отправить.
Добавляем:
p:=GetMemory(length(s)); CopyMemory(p,pointer(s),length(s)); ListBox1.Items.AddObject("Лена", TObject(p));

Убиваем:
FreeMem(ListBox1.Items.Objects[Index]); Delete...

← →
malamba (2005-07-01 13:57) [14]

А как не показывать? У столбца в ListView нет свойства Visible.

← →
malamba (2005-07-01 14:03) [15]

GrayFace, не успел прочитать Ваш ответ.

Это уже извращение:
три строчки ( выделить память, заполнить, передать ) против одной доавить
ListBox1.Items.AddObject("Лена", TObject("и не отдаст"));

и затем еще FreeMem, Delete, когда просто
ListBoxPreparat.Items.Delete(i); вместе с объектом.

Но за идею спасибо.

malamba (01.07.05 13:57) [14]

> У столбца в ListView нет свойства Visible.

Так можно завести те столбцы, значения которых надо показывать. А остальные значения не показывать.

← →
Dimous (2005-07-01 15:10) [17]

malamba (01.07.05 14:03) [15]
> Это уже извращение:
> три строчки ( выделить память, заполнить, передать ) против одной доавить
> ListBox1.Items.AddObject("Лена", TObject("и не отдаст"));

Это не извращение, это правильно. Кроме того "TObject("и не отдаст")" - это не объект, а даже если бы и был объетом, то при удалении итема связанный с ним объект автоматически не освобождается...

malamba (01.07.05 14:03) [15]
и затем еще FreeMem, Delete, когда просто
ListBoxPreparat.Items.Delete(i); вместе с объектом.
А вот тут будет утечка памяти.
Если пихать в ListBox строки, то надо примерно так:

Засовывание (строки s):
UniqueString(s); ListBox1.AddItem("Маша",TObject(s)); pointer(s):=nil;
Удаление:
var s:string; begin pointer(s):=ListBox1.Items.Objects[0]; s:=""; ListBox1.Items.Delete(0); end;

UniqueString(s), возможно, не нужен.

ListBox и список значений: как соединить? Найти похожие ветки