Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

Две колонки в ListBox 


SergeyNew   (2002-01-07 11:12) [0]

Прошу помочь сделать в контроле ListBox два столбца (один невидимый) для возможности выбора по данным из невидимого столбца, а сортировки, изменений и т.д. по другому столбцу. Такой ListBox имеется в VB.



XeN   (2002-01-07 11:19) [1]

юзай ListView



SergeyNew   (2002-01-07 11:25) [2]

Использовать ListView вместо ListBox?



XeN   (2002-01-07 18:53) [3]

listview - то же самое, что и listbox, только колонки можно добавлять. :)



SergeyNew   (2002-01-07 19:22) [4]

Попробовал... :(((
Время записи в ListView в десятки раз больше, чем в ListBox.
Например 1000 строк пишется около 10 сек (в ListBox практически мгновенно). Что еще можете посоветовать?



XeN   (2002-01-07 20:38) [5]

Не может такого быть! У меня проект есть один, так там listview юзается по "чёрному" и ничего не глючит!



SoftOne   (2002-01-08 15:02) [6]

> SergeyNew
Если я правильно понял твой первый вопрос, то используй
ListBox1.Items.AddObject("MyString",TObject(MyData))

Получишь как раз "два столбца": видимый - "MyString" и невидимый MyData, где MyData - либо просто Integer, либо указатель на любые твои данные.



SergeyNew   (2002-01-08 18:38) [7]

> SoftOne
Это как раз то, что требуется.
Но у меня не получается :(((
Прошу, напиши код, как записывать в оба столбца и как считывать из них.
Например, для записи что-то типа:
For i:= 0 to 10 do
begin
col1:= "строка" + i
col2:= i
end;
end;
И что-нибудь для чтения.



kaif   (2002-01-09 01:48) [8]

При записи приводи integer к Pointer:
for i := 0 to 10 do
ListBox1.Items.AddObject("MyString "+ StrToInt(i), Pointer(i));

А при чтении, наоборот, pointer к integer :
for i := 0 to 10 do
begin
ShowMessage(
ListBox1.Items[i] + "-" +
IntToStr( Integer(ListBox1.Items.Objects[i])));
end;



SoftOne   (2002-01-09 01:49) [9]


var i, k : Integer
begin
for i:=0 to 10 do
ListBox1.AddObject("строкаi",TObject(i));

Это для записи.
Для чтения, например:

k:=Integer(ListBox1.Items.Objects[ListBox1.ItemIndex]);



SergeyNew   (2002-01-09 17:57) [10]

>SoftOne ©
>kaif ©

Все ОК!
Большое спасибо!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.015 c
1-90263           Tosov                 2002-01-08 23:22  2002.01.28  
Закраска ячейки StringGrid


7-90389           VL                    2001-10-16 13:42  2002.01.28  
Вопрос по mount для виндов...


3-90212           VovaKomarov           2001-12-24 11:35  2002.01.28  
BLOB


4-90407           YUS                   2001-11-24 06:47  2002.01.28  
CreateDialog ( R )


14-90362          Дремучий              2001-12-03 23:44  2002.01.28  
Китайские сервера!