摘要：控件版本是:FastReport 3.23.12 Enterpise for d2006 (DeXter)设置如下:function TJzpzEdit1.MoneyCn(mmje: Double): string;consts1: string = '零壹贰叁肆伍陆柒捌玖';s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万';function StrTran(const S, s1, s2: string): string;beginResult := StringReplace(S, s1, s2, [rfReplaceAll]);end;varS 阅读全文

摘要：function LocalIP: String;type TaPInAddr = Array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr;var phe: PHostEnt; pptr: PaPInAddr; Buffer: Array[0..63] of AnsiChar; i: Integer; GInitData: TWSAData;begin WSAStartup($101, GInitData); Result := ''; GetHostName(Buffer, SizeOf(Buffer)); phe := GetHost 阅读全文