Отчеты. 
Разработка программы складского учёта

Для работы с ms Word, разработан класс tMsWord, использующий технологию OLE для работы. Данный класс содержит в себе методы, реализующие интерфейс с основными функциями, предоставляемыми OLE сервером. Описание методов класса представлено в таблице 13.

Таблица 13.

Ниже представлено описание класса tMsWord.

TMSWord = class(TObject).

public

Word: Variant;

DocFileName: string;

constructor Create (FileName: string='');

Function Open: boolean;

Procedure Close;

Procedure Save;

Procedure Show;

Procedure New;

Procedure SaveAs (FileName:string);

Procedure Replace (a, b: string);

Procedure Find (a:string);

Procedure InsertText (Text: string);

Procedure InsertCenterText (Text: string);

Procedure InsertPicture (FileName: string);

Procedure InsertFile (FileName: string);

Procedure InsertTable (Columns, Attributes: integer);

Procedure InsertTableHead (Width: array of integer; Names: array of string);

Procedure InsertTableLine (Names: array of string;bold:boolean=false);

Procedure EndOfTable;

procedure openfile (fn:string);

end;

Открытие связи с ms Word происходит с помощью выполнения слкдующей команды:

Word := CreateOleObject ('Word.Basic');