function Big5ToUnicode(str Char): widestring;
var
len: integer;
begin
len:=MultiByteToWideChar(950,0,PChar(str),-1,nil,0);
setlength(result,len-1);
MultiByteToWideChar(950, 0, PChar(str……
(中行雷威2019.12.5)
(同一个世界,同一个梦想,交流学习C++Builder and Delphi XE10,传承c++builder and Delphi的魅力!欢迎各地朋友加入我的QQ群484979943、299497712,860634510,进群密码“BCB”,同时也请将该 ...……
procedureTForm1.btn1Click(Sender:TObject); var c:Integer; begin forc:=5downto0do begin ShowMessage(IntToStr(c)); end; end; forc:=0to5do begin ShowMessage(IntToStr(c)); ……