|
在引入第三方控件的源程序包.pas代码如下,在做到第三步编译包时提示Undeclared identifier.'Open'的错误
unit OleAdvFunc;
interface
uses
OleCtnrs, Dialogs;
type
TOleWord = class
private
public
procedure Open();
end;
implementation
uses Word2000,OleServer,Controls, ExtCtrls;
{ TOleWord }
procedure TOleWord.Open();
var
wod:TWordApplication;
begin
wod.Connect;
wod.Visible:=True;
end;
end. |
|