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




Вниз

Ограничение на длинну строки в ListBox? 


TonnyS   (2002-01-08 11:08) [0]

Здравствуйте. Можно ли в ListBox обойти ограничение на длинну строки? (подозреваю, что 32кб хотя не проверял)
Ещё: как быстро заполнять ListBox, например, вручную читая с файла? (примерно 1000-30 000 строк)



MBo   (2002-01-08 11:40) [1]

>ограничение на длинну строки
не на длину строки, а на объем - обойти в Win9X нельзя
быстро заполнить
ListBox1.Items.LoadFromfile("c:\lbitems.txt");
но 30000 непустых строк ListBox не возьмет - 64K предел



TonnyS   (2002-01-08 12:48) [2]

не, в ListBox загружался файл несколько МБ (т.е реально загружал 30000 непустых строк, win98) Проблемма возникает, когда одна строка очень большая (думаю, больше 64К), вот я и думал вручную разбивать строку на более мелкие куски и засовывать в ListBox, поэтому желательно метод построчного быстрого добавления



panov   (2002-01-08 13:26) [3]

Попробуй воспользоваться функцией WrapText.
var
...
tmpList: TStringList;
begin
tmpList := TStringList.Create;
try
tmpList.Add(WrapText(s,50));
ListBox1.Items.AddStrings(tmpList);
finally
tmpList.Free;
end;



TonnyS   (2002-01-08 13:48) [4]

большое спасибо ответившим,
>panov © - спасибо за WrapText :)
вроде работает ещё так:
ListBox1.items.text := WrapText(MyStr,50);
позже проверю на реальных файлах.



panov   (2002-01-08 13:50) [5]

TonnyS © (08.01.02 13:48)
ListBox1.items.text := WrapText(MyStr,50);
Заменит весь ListBox1 :-)



TonnyS   (2002-01-08 14:09) [6]

>panov © Собственно что требовалось - считать из файла текст в ListBox, а ListBox1.Items.LoadFromFile() не работает при большой длинне строки. Так что всё ок :)




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




Наверх





Память: 0.72 MB
Время: 0.022 c
1-75565           BuG                   2002-01-05 01:56  2002.01.24  
помагите плиз


1-75540           ctapik-net            2002-01-05 09:28  2002.01.24  
Создание нестандартного компонента


3-75470           vano                  2001-12-07 16:21  2002.01.24  
try except


3-75518           Reals                 2001-12-19 12:14  2002.01.24  
Определения MSSQL сервера...


3-75509           Dim                   2001-12-21 09:32  2002.01.24  
Подключение к удаленной БД.