标签：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;
标签：form mes begin div gre man skin lang ble
原文地址：https://www.cnblogs.com/YiShen/p/9862710.html
