Delphi 接口(2)

2021-07-04 04:28

阅读:547

标签:form   mes   begin   div   gre   man   skin   lang   ble   

对SayHello过程的改进

代码如下:

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;

 

Delphi 接口(2)

标签:form   mes   begin   div   gre   man   skin   lang   ble   

原文地址:https://www.cnblogs.com/YiShen/p/9862710.html


评论


亲,登录后才可以留言!