Экспорт данных из StringGrid в Word

[BlackRavenRu]

Приветствую.

Есть работающая процедура экспорта таблицы из StringGrid'а в Word-файл. Проблема в следующем: уже при тысяче строк в таблице, процесс экспорта занимает несколько минут. А по поставленной задаче количество строк может доходить и до нескольких десятков тысяч. В связи с этим экспорт занимает огромное количество времени.

Прошу подсказать, возможно существует способ ускорить экспорт или стоит попробовать какой-то другой способ экспорта (если таковой существует).

procedure TF1.BsaveClick(Sender: TObject);
var
  WordApp,NewDoc,WordTable: OLEVariant;
  iRows,iCols,iGridRows,jGridCols,i,j: Integer;
begin
  try
    WordApp:=CreateOleObject('Word.Application');
  except
    Exit;
  end;
  NewDoc:=WordApp.Documents.Add;
  NewDoc.PageSetup.Orientation:=1;
  iCols:=F1.SG1.ColCount;
  iRows:=F1.SG1.RowCount+1;
  WordTable:=NewDoc.Tables.Add(WordApp.Selection.Range,2,iCols);

  for iGridRows:=3 to iRows do begin
    WordTable.Rows.Add;
    for jGridCols:=1 to iCols do begin
      WordTable.Cell(iGridRows,jGridCols).Range.Text:=F1.SG1.Cells[jGridCols-1,iGridRows-2];
    end;
  end;

  try
    NewDoc.SaveAs(FileName:=F1.LEsavedirectory.Text+'\'+F1.LEsavename.Text+'.rtf');
  except
    MessageDlg('Ошибка при сохранении файла.',mtError,[mbOk],0);
  end;
  WordApp.Quit;
  WordApp:=Unassigned;
  NewDoc:=Unassigned;
  WordTable:=Unassigned;
end;

[Ship_1]

Однажды недавно я пытался ускориить процесс поиска в ListBox. Задавал примерно такой же вопрос: не знает ли кто как?
Наиболее дельным оказался совет минимизировать количество процедур и обращений к визуальным объектам в цикле. В результате создание TStringList и копирование в него содержимого ListBox с обращением потом именно к StringList а не ListBox ускорило цикл процентов на сорок.
Попробуй и ты сделать подобное.
Например, тоже создать StringList, в который копировать содержимое строк перед переходом во внутренний цикл, примерно так:

Var TSL: TStringList;
.......
TSL:=TStringList.Create;

  for iGridRows:=3 to iRows do begin
    WordTable.Rows.Add;
    TSL.Assign(F1.SG1.Rows[iGridRows-2]);
    for jGridCols:=1 to iCols do begin
//      WordTable.Cell(iGridRows,jGridCols).Range.Text:=F1.SG1.Cells[jGridCols-1,iGridRows-2];
      WordTable.Cell(iGridRows,jGridCols).Range.Text:=TSL[jGridCols-1];
    end;
  end;
TSL.Free;

[BlackRavenRu]

Сообщение от Ship_1

...
Попробуй и ты сделать подобное.
Например, тоже создать StringList, в который копировать содержимое строк перед переходом во внутренний цикл
...

Спасибо за совет. Попробовал. К сожалению в моём случае это непомогло. Ради интереса засёк секундомером, ваш вариант и мой трудились одинаковое время секунда в секунду.

[min@y™]

А чего в ворд? Почему не в эксцель?

[Stilet]

WordTable.Rows.Add;

Надо сразу создать таблицу со всеми строками а не дописывать построчно.
http://msdn.microsoft.com/en-us/libr...code-snippet-1

NumRows
Type: System.Int32
Required Integer. The number of rows you want to include in the table.

[Serge_Bliznykov]

NURKZ, не надо лезть в чужую тему. создавайте свою, там и просите помощи!

[BlackRavenRu]

Сообщение от min@y™

А чего в ворд? Почему не в эксцель?

Закидоны начальства. Выходной Word-файл потом "кушает" другая сторонняя программа.

Сообщение от Stilet

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

Пробовал. Word не позволяет добавлять более 32767 строк при создании таблицы. Собственно так и было сделано изначально, пока в один прекрасный день не понадобилось экспортировать 62000 строк.
Но и при таблице со всеми строками экспорт скоростью не блистал.

[Аватар]

Когда-то аналогичную проблему с выгрузкой в Excel решал - на выходе в шаблон нужно было записать очень много строк. Средствами SQL нельзя, потому что сложный шаблон, через OLE очень медленно. Выгрузил шаблон в XML-формате, разобрался с его устройством и писал в XML. Скорость на порядок лучше. В Word-е тоже есть возможность выгрузки в XML. Можно поступить аналогично. После формирования документа через OLE открыть в Word-е и сохранить в DOC-формате

[Stilet]

не понадобилось экспортировать 62000 строк.

Офанареть.... А несколькими таблицами не пробовал?
И кста, может действительно под Экзель переписать?

[Slym]

Дык у ворда нужно дизаблить отрисовку и проверку арфаграфии

Application.ScreenUpdating = False 
try
'Здесь должен быть код Вашей программы. 
finally
Application.ScreenUpdating = True
end;

 wdApp.Options.CheckSpellingAsYouType = False

http://vbabesaba.com/uroki/uskorenie.htm
http://www.programmersforum.ru/showthread.php?t=227736