关注
分享
rivsnow
这个作者很懒，什么都没留下…
展开
-
UTF-8字符串转为AnsiString
//江雪 2001.06.11 http://asnowcn.at.china.com//将UTF-8字符串转为代码页为CodePage的AnsiString。function UTF8ToAnsiString(utf8str:string; CodePage:integer):AnsiString;var i:integer; buffer:widestring; ch原创 2001-06-12 00:50:00 · 1064 阅读 · 0 评论 -
直接在WebBrowser中显示字符串
//江雪 2001.06 http://asnowcn.at.china.com//直接在WebBrowser中显示字符串procedure ShowInWebBrowser(WebB:TWebBrowser;Str:String);var v: Variant; HTMLDocument: IHTMLDocument2;begin HTMLDocument := WebB.Document a原创 2001-06-16 03:35:00 · 883 阅读 · 0 评论