对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;