摘要：procedure TfrmCaoZYGLNew.edt1KeyPress(Sender: TObject; var Key: Char);var AItem: TListItem; i: Integer; isFound: Boolean;begin if key = #13 then begin 阅读全文

摘要：//替换系统自带的Utf8Decode函数，原函数遇到日文等非法字符不能解析function DecodeUtf8Str(const S: UTF8String): WideString;var lenSrc, lenDst: Integer;begin lenSrc := Length(S); i 阅读全文

摘要：SELECT ab.* from WuZKCXX ab WHERE ab.shixrq IS NOT NULL AND fun_date_YorN(ab.shixrq) = 0 create or replace function fun_date_YorN(i_dt varchar2) retur 阅读全文

摘要：function Generate_DZ_TYZL( ATYXML: string): WideString;var xml:string; mwXML,iTYXML:string;begin iTYXML:=StringReplace(ATYXML,#$D#$A,'',[rfReplaceAll] 阅读全文