摘要:
View Code procedure ShowMsg(const fmtStr:string; const params: array of const);begin ShowMessageFmt(fmtStr,params);end;function SumAll(const Args: array of const): Extended;var I: Integer;begin Result := 0; for I := Low(Args) to High(Args) do case Args[I].VType of vtInteger: Result := R... 阅读全文