402 Глава!

if(Memol->Font->Style.Contains(fsBold))

W.Exec(Procedure("Bold")) ;

if(Memol->Font->Stуle.Contains(fsItalic))

W.Exec(Procedure("Italic")) ;

W.Exec(Procedure("Insert") « (S + "\n"));

}

//————————————————————————-

void __fastcall TFormI::ButtonlClick(TObject *Sender)
(
AnsiString s;

W = CreateOleObject("Word.Basic");

W.Exec(Procedure("AppShow"));

W.Exec(Procedure("FileNew") « "Normal");

if(RGSex->Item!ndex == 0)

Ins("Дорогой " + EName->Text + "!");

else Ins("Дорогая " + EName->Text + "!");

for (int i = 0; i <= Memol->Lines->Count; i++)
Ins(Memol->Lines->Strings[i]);

if (RGOp->ItemIndex == 0)

s = "Записать это письмо в файл?";

else s = "Напечатать это письмо?";

if (MessageDIg(s, mtConfirmation, TMsgDIgButtons() « mbYes

« mbNo, 0) == mrYes)
if (RGOp->ItemIndex == 0)
{
if(SaveDialogl->Execute())

W.Exec(Procedure("FileSaveAs") « SaveDialogl->FileName),
}
else W.Exec(Procedure("File Print")) ;

W.Exec (Procedure("FileClose") « 2) ;

}

//————————————————————————-

void   fastcall TFormI::BFontClick(TObject *Sender)
{

if(FontDialogl->Execute())
Memol->Font->Assign(FontDialogl->Font);

}

Рассмотрим приведенный код. В приложении вводится переменная W типа
Variant, которая будет являться ссылкой на объект сервера. Основная функция
приложения ButtonlClick — обработчик щелчка на кнопке Выполнить. Ее первый
выполняемый оператор

W = CreateOleObject("Word.Basic");

создает ссылку на объект, соответствующий Microsoft Word. При выполнении это-
го оператора будет запущен Word, если он еще не был запущен к этому моменту.
Последующие операторы используют метод Exec, который выполняет процедуру
или функцию OLE. Как параметр в нее передается конструкция Procedure(S), где
S — имя вызываемой процедуры WordBasic. Если в процедуру требуется передать
параметры, они передаются операций «. Например, во вспомогательной функции
Ins, заносящей текст в документ Word, вы можете видеть оператор:

W.Exec(Procedure("Font") « Memol->Font->Name « Memol->Font->Size);

Этот оператор вызывает процедуру WordBasic Font, устанавливающую
шрифт, и передает в нее два параметра: имя шрифта и его размер.

Последовательность вызываемых процедур следующая. Сначала вызывается
процедура AppShow, которая делает окно Word видимым, поскольку по умолча-