2019年6月27日
listview findCaption
摘要： procedure TfrmCaoZYGLNew.edt1KeyPress(Sender: TObject; var Key: Char);var AItem: TListItem; i: Integer; isFound: Boolean;begin if key = #13 then begin 阅读全文
posted @ 2019-06-27 08:48 绿水青山777 阅读(386) 评论(0) 推荐(0)
替换系统自带的Utf8Decode函数，原函数遇到日文等非法字符不能解析
摘要： //替换系统自带的Utf8Decode函数，原函数遇到日文等非法字符不能解析function DecodeUtf8Str(const S: UTF8String): WideString;var lenSrc, lenDst: Integer;begin lenSrc := Length(S); i 阅读全文
posted @ 2019-06-27 08:26 绿水青山777 阅读(300) 评论(0) 推荐(0)