![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Как правильней?
В цикле создать объект или до цикла его создавать и чистить его в цикле Код:
while not ADOQuery1.EOF do try COM_Word := CreateOLEObject('Word.Application'); COM_Word.Visible := False; COM_Word.Documents.Open(ADOQuery1[0].AsString); Com_Word.ActiveDocument.Select; COM_Word.Selection.Copy; RichEdit1.PasteFromClipboard; COM_Word.DisplayAlerts := False; COM_Word.Quit; finally COM_Word := UnAssigned; end; Научите пожалуйста Последний раз редактировалось Admin, 17.03.2014 в 21:23. |