DELPHI °ÑÁ÷ת»»³É×Ö·û´®ÕâÑù³ÉÂð£¬ÊÇGBKµÄ±àÂëÂð
function TFrm_FncUpdateManager.StreamToString(
aStream: TStream): String;
var
vi: Integer;
begin
Result := '';
if not Assigned(aStream) then
Exit;
SetLength(Result, aStream.Size);
for vi := 0 to Pred(aStream.Size) do
begin
aStream.Position := vi;
aStream.Read(Result[Succ(vi)], 1);
end;
end;
ÄãÓÃÁ÷µÄ»°Óò»×ÅÕâôÂé·³
TStringStreamÓÃÕâ¸öÁ÷ ½øÐжÁд²Ù×÷
aStream.WriteString('°¡´ò·¢·¢Éú·¢Éú·É');
aStream.ReadString('°¡´ò·¢·¢Éú·¢Éú·É');
ÔÙÆä´Î StreamÊǸö³éÏóÀ࣬Äã²»ÄÜÖ±½Óµ÷ÓõÄ
Â¥ÉÏѧ¹ý¶à̬°É
µÄÈ·.
ÕâÕâÀïÖ»ÊÇÉùÃ÷ʵÀýÊÇÒ»¸öTStream»òÕßTStreamµÄ×ÓÀà,ÓÖûÓÐÈ¥´´½¨TStreamÀàµÄʵÀý
ÊDz»ÊÇGBKÐèÒª×Ô¼ºÅжÏÒ»ÏÂ
ÒòΪ·þÎñ¶ËµÄÊÇJAVAÒª°ÑÁ½±ßµÄµÄÁ÷°ü½øÐе÷Óã¬ËùÒÔÒªMD5ÑéÖ¤£¬¶¼×ªÕýͬһµÄ¸ñʽ,ÎÒ´«µÄÊÇÎļþÁ÷¡£
ÔõôÑù°ÑÁ÷¶¼´«»»³ÉGBKÄØ
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview
treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));
raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ
²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà
TTreeView ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......