Delphi 接口(2)
2021-07-04 04:28
阅读：493
标签：form mes begin div gre man skin lang ble 对SayHello过程的改进 代码如下: Delphi 接口(2) 标签：form mes begin div gre man skin lang ble 原文地址：https://www.cnblogs.com/YiShen/p/9862710.html
procedure TForm2.SayHello(AMan: TMan);
var
G: IGreetable;
begin
edt_Name.Text := AMan.Name;
edt_language.Text := AMan.Language;
edt_SkinColor.Text := AMan.SkinColor;
G := AMan as IGreetable;
if G nil then
begin
ShowMessage(G.SayHello);
end;
end;
上一篇：api访问权限控制
评论
亲，登录后才可以留言！