com的基础问题--在线等
//定义接口 ISampleInterface
ISampleInterface = Interface(IUnknown)
function GetName:string;
procedure SetName(s:string);
end;
//实现接口 ISampleInterface
TSampleImpl = class(TInterfacedObject, ISampleInterface)
public
__Name:string;
function GetName:string;
procedure SetName(s:string);
end;
var
Form1: TForm1;
//----------------------------------------------
//接口对象: 获取接口名函数
function TSampleImpl.GetName:string;
begin
GetName:=__Name;
end;
//----------------------------------------------
//接口对象: 设置接口名函数
procedure TSampleImpl.SetName(s:string);
begin
__Name:=s;
end;
//------------------------------------------------
//设置名称
procedure TForm1.Button1Click(Sender: TObject);
begin
MyInterface.SetName(Edit1.Text);???MyInterface怎么好像用.不会出来setname的????
end;
//--------------------------------------------------
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text:=MyInterface.GetName;//??
end;
//----------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
MyInterface := TSampleImpl.Create;
end;
//-------------------------------------------------
end.