Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 963

/ вопрос открыт /

Здравствуйте, эксперты! Доброго времени суток!
у меня добавляется 3600 в stringgrid уже 30 мин как можно ускорить этот процес?

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Примечание #1 (3 октября 2008, 18:08):
var row,col:integer;
begin
StringGrid1.ColCount:=strtoint(Label3.Caption);
suiProgressBar1.Max:=strtoint(Label4.Caption);
for row:=1 to strtoint(Label4.Caption) do begin
for col:=1 to strtoint(Label3.Caption) do

StringGrid1.Cols[col-1].add(table.Cell(row, col).Range.Text);
suiProgressBar1.Position:=row;
Label6.Caption:=inttostr(row)
end;
в таблице 3698 строк

seryoga Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: seryoga (статус: 1-ый класс)
Вопрос отправлен: 3 октября 2008, 18:06
Состояние вопроса: открыт, ответов: 0.


Мини-форум вопроса

Всего сообщений: 6; последнее сообщение — 4 октября 2008, 06:34; участников в обсуждении: 3.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 3 октября 2008, 18:12 [#1]:

Убрать изменение видимых компонентов, label, ProgressBar и запретить перерисовку StringGrid до полного заполнения
seryoga

seryoga (статус: 1-ый класс), 3 октября 2008, 18:16 [#2]:

to Мережников Андрей: как её запретить? StringGrid1.Visible:=false поможет?
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 3 октября 2008, 18:19 [#3]:

Если Вы используете загрузку из Excel, то сначала всю таблицу из Excel запихните в массив. Есть операции работы с блоками. А затем уже из массива заполняйте StringGrid;

RangeMatrix: Variant;

// Сопоставляем матрицу WorkSheet с нашей Delphi матрицей
RangeMatrix := XLApp.Range['A1',XLApp.Cells.Item[X,Y]].Value;
seryoga

seryoga (статус: 1-ый класс), 3 октября 2008, 18:20 [#4]:

to Мережников Андрей: Это из Worda а не из Excel
Вадим К

Вадим К (статус: Академик), 3 октября 2008, 19:05 [#5]:

а попробовать использовать ListView в виртуальном режиме? он и миллион записей добавит за долю секунды. На сайте есть статья о нём.
После этого только ворд будет тормозить.
Галочка "подтверждения прочтения" - вселенское зло.
Мережников Андрей

Мережников Андрей (статус: Абитуриент), 4 октября 2008, 06:34 [#6]:

чтобы временно запретить форме перерисовываться, необходим следующий код:
form1.Perform(WM_SETREDRAW, 0, 0);

чтобы возвратиться к нормальному состоянию:
form1.Perform(WM_SETREDRAW, 1, 0);
form1.Refresh;

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 26 июня 2017, 16:45
Выполнено за 0.04 сек.
Рейтинг@Mail.ru