Delphi 接口

Posted 2021-01-15 yishen

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