Форум: "Основная";
Поиск по всему сайту: 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.028 c
7-75686           cat                   2001-09-22 17:43  2002.01.24  
Сеть через СОМ порты


3-75521           Alexandr              2001-12-21 10:44  2002.01.24  
Печать ценников


3-75464           Aquarius              2001-12-19 10:28  2002.01.24  
Проблема с разделителями полей в QuickReports, HELP!!!


3-75465           Sergey Karagodin      2001-12-19 14:25  2002.01.24  
Возвращаю результат запроса (ADO+SQL7)


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