Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос про VTable интерфейс [D6, WinXP]

lovres © (2002-09-05 14:21:00)
Имеется следующий код:

procerdure TForm1.Button1Click(Sender: TObject);
var
//Объявление переменных, для передачи их в
//eкачестве формальных параметров в сервер автоматизации
Shablon,FileName,oldStr,newStr,replace,ext:OleVariant;
begin
Table1.Active:=false;
Table1.Active:=true;
Shablon:=ExtractFilePath(Application.EXEName)+"shablon.DOC";
FileName:=ExtractFilePath(Application.EXEName)+"report.DOC";
//Открываем шаблон документа
WordApplication1.Documents.Open
(Shablon,EmptyParam, EmptyParam,EmptyParam,
EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam);
//Связываем компоненту с существующим интерфейсом
WordDocument1.ConnectKind:=ckAttachToInterface;
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
replace:=1; oldStr:="@1"; newStr:=DateTimeToStr(Now);
//Находим в документе метки и производим их замены
WordDocument1.Range.Find.Execute(oldStr,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,newStr,replace);
//сохранение документа и отображение его в OLE контейнере
//(предварительный просмотр)
WordDocument1.SaveAs(FileName); WordDocument1.Close;
OleContainer1.CreateLinkToFile(FileName,false); OleContainer1.Refresh;
end;
---------------------------------------
Delphi ругается на выделенные строки - говорит Table1 не объявлен, я сам новичок и не знаю каким его объявить надо, знаю лишь, что это как-то связано с интерфейсом VTable. Подскажите, пожалуйста, что мне надо добавить или может что-то объявить?

lovres (2002-09-05 14:31:00) [1]
Sorry, стормозил, вопрос снимается.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »