Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Отоброзить TStringList на экране.   Найти похожие ветки 

 
Pavia ©   (2010-02-28 12:43) [0]

Как правильно и быстро отобразить TStringList?

Ужас. вот такие вот результаты.

ListBox1.Items:=ListAns; // 22 секунды

Memo1.WordWrap:=True; //20 секунд
Memo1.Lines:=ListAns;

Memo1.WordWrap:=False; //17 секунд
Memo1.Lines:=ListAns;


Не хочу изобретать велосипед. Поэтому ищу стандартное решение. Или готовый компонент.


 
lhelperl   (2010-02-28 12:56) [1]

with ListBox1 do
begin
 Items.BeginUpdate;
 for i := 0 to ListAns.Count - 1 do
   Items.Add(ListAns[i]);
 Items.EndUpdate;
end;


Сколько времени занимает? Какой объем у ListAns?


 
sniknik ©   (2010-02-28 13:04) [2]

TDBListBox


 
Palladin ©   (2010-02-28 13:53) [3]

Memo1.Lines.Text := ListAns.Text;


 
Loginov Dmitry ©   (2010-02-28 14:35) [4]


> Как правильно и быстро отобразить TStringList?
>
> Ужас. вот такие вот результаты.
>
> ListBox1.Items:=ListAns; // 22 секунды


TListBoxStyle + F1

ListBox1.Style := lbVirtual;
ListBox1.Count := ListAns.Count;

procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
 var Data: String);
begin
 Data := ListAns[Index];
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 TListBox(Control).Canvas.FillRect(Rect);
 TListBox(Control).Canvas.TextOut(Rect.Left, Rect.Top, ListAns[Index]);
end;


 
DVM ©   (2010-02-28 15:34) [5]


> Pavia ©   (28.02.10 12:43) 
> Как правильно и быстро отобразить TStringList?

TListView плюс виртуальный режим. Неважно сколько элементов в листе - отображение мгновенно.


 
Pavia ©   (2010-02-28 15:38) [6]


> lhelperl   (28.02.10 12:56) [1]

22с.


> sniknik ©   (28.02.10 13:04) [2]

А больше одного слова написать слабо?


> Palladin ©   (28.02.10 13:53) [3]

О уже лучше 1.3 с запомню.


> Loginov Dmitry ©   (28.02.10 14:35) [4]


Спасибо друг. То что нужно.


 
sniknik ©   (2010-02-28 16:05) [7]

> А больше одного слова написать слабо?
это как раз то -
> ищу стандартное решение. Или готовый компонент.
стандартный, готовый компонент. с разделением данных от их отображения.

p.s. 13 слов включая предлоги и исключая эту фразу. хватит?


 
Игорь Шевченко ©   (2010-03-01 03:21) [8]

Автор, тебе нельзя помочь.


 
Leonid Troyanovsky ©   (2010-03-01 12:01) [9]


> Pavia ©   (28.02.10 12:43)  

> Как правильно и быстро отобразить TStringList?

TDrawGrid.

--
Regards, LVT.


 
Anatoly Podgoretsky ©   (2010-03-01 12:07) [10]


> TDrawGrid.

А почему не наследника TStringGrid?


 
Leonid Troyanovsky ©   (2010-03-01 12:23) [11]


> Anatoly Podgoretsky ©   (01.03.10 12:07) [10]

> А почему не наследника TStringGrid?

А чтоб только показывать. Ну, и редактировать, если надо.
С хранением, вроде, определились.

--
Regards, LVT.


 
Anatoly Podgoretsky ©   (2010-03-01 12:53) [12]

> Leonid Troyanovsky  (01.03.2010 12:23:11)  [11]

Понял, чтобы не хранить.



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.048 c
15-1272473800
NailMan
2010-04-28 20:56
2010.08.27
Нужен нормальный юрист, проверенный в Москве. Кто знает?


2-1273332902
Tassadar
2010-05-08 19:35
2010.08.27
Runtime error - array of string как атрибут класса


15-1264145710
Дмитрий С
2010-01-22 10:35
2010.08.27
Атмосфера увеличивается?


15-1271453021
DillerXX
2010-04-17 01:23
2010.08.27
VM-Ware


15-1268385262
Jeer
2010-03-12 12:14
2010.08.27
Нас посчитали