摘要：program Project1;{$APPTYPE CONSOLE}{$R *.res}uses System.SysUtils;type TVoice = function(): String;function WithAmericanDoll(): String;begin Result := 'Oh yes, Oh, F M.';end;function WithJapanDoll(): String;begin Result := 'ah, a~ah, eku..eku..';end;function MkLove(voice: TVoice): St 阅读全文