本文整理自网络,侵删。
procedure TForm1.GREEK_BtnClick(Sender: TObject);
var S : widestring; //用string会导致信息丢失, TNTMemo1会出现部分?
begin
S := IdHTTP.Get('http://www.gnto.gr/');
S := UTF8Decode(S); //http://www.gnto.gr/利用了UTF-8编码,必须要这句话才行!
Memo1.Lines.Text := S; //有一些?
TNTMemo1.Lines.Text := S; //完全显示正确
end;
相关阅读 >>
键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例
Delphi xe5 将Delphi code从winos 迁移到ios与android
更多相关阅读请进入《Delphi》频道 >>