Форум: "Основная";
Поиск по всему сайту: 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.72 MB
Время: 0.023 c
7-90388           Sergy                 2001-10-17 11:36  2002.01.28  
Опять модем!


1-90271           RomaRomaRoma          2002-01-09 19:29  2002.01.28  
Язык текста в RichEdit


14-90363          wHammer               2001-12-03 11:09  2002.01.28  
Складской учет и Delphi


4-90431           Andrey Mihaylov       2001-11-30 01:38  2002.01.28  
Несколько вопросов о сервисах..... (((


4-90423           Люк                   2001-11-29 12:59  2002.01.28  
Управление памятью