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;
发表于 @ 2006年03月24日 08:27:00|评论(loading...)|编辑