|
Вопрос # 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 (статус: 1-ый класс)
Вопрос отправлен: 3 октября 2008, 18:06
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 4 октября 2008, 06:34; участников в обсуждении: 3.
|
Мережников Андрей (статус: Абитуриент), 3 октября 2008, 18:12 [#1]:
Убрать изменение видимых компонентов, label, ProgressBar и запретить перерисовку StringGrid до полного заполнения
|
|
|
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 (статус: 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;
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
