procedure TUG5CH22_.Button3Click(Sender: TObject);
begin
Memol.Text:=W.ActiveDocument.Range.Text;
end;
Рис. 5.10. Чтение текста из документа
На рис. 5.10 представлен результат работы этого кода.
Если требуется экспортировать в программу-контроллер очень большой
текст, то можно работать с его фрагментами в документе. Для этого исполь-
зуйте процедуру Range(first, last), где first, last — границы диапазона (пози-
ции символов), в котором находится рабочий фрагмент.
Другой способ чтения текста документа основан на чтении слов.
Примечание
За слово принимается непрерывный фрагмент текста, состоящий из букв и
цифр, который оканчивается пробелом, знаком препинания, арифметическим,
логическим или другим символом. Все перечисленные символы или их комби-
нации за исключением пробела также представляют собой отдельные слова.
Рассмотрим коллекцию Words слов документа. Синтаксис может быть
таким:
W.ActiveDocument.Words
Эта коллекция включает в себя слова объекта-хозяина. В следующем при-
мере коллекция Words содержит все слова активного документа.
Чтение коллекции слов в активном документе
procedure TUG5CH22_.Button4Click(Sender: TObject);
var a_:integer;
begin
Memol.Lines.Clear;
for a_:=l to W.ActiveDocument.Words.count do begin
Memol.Lines.Add(W.ActiveDocument.Words.item(a_).Text);
end;
end;
Результат выполнения данной процедуры представлен на рис. 5.11.
Рис. 5.11. Чтение коллекции слов в активном документе
Если у вас дома еще нет джакузаи то не беда его можно купить недорого тут - http://www.overspas.ru/jacuzzi/.
Очевидно, что данный способ подходит для работы с отдельными словами,
но его можно использовать только для чтения, а не для записи. Когда доку-
мент открыт, прочитан, изменен, то, возможно, потребуется сохранить эти
изменения. |