//
if IsDBCSLeadByte(C) then //if C in [#129..#254] then
//建议你使用WideString(多字节字符串)来处理判断procedure TForm1.Button1Click(Sender: TObject);
var
S: WideString;
begin
S := '汉字';
ShowMessage(S[1]); //'汉'
ShowMessage(S[2]); //'字'
ShowMessage(IntToStr(Length(string(S[1])))); //2
end;
if IsDBCSLeadByte(C) then //if C in [#129..#254] then
//建议你使用WideString(多字节字符串)来处理判断procedure TForm1.Button1Click(Sender: TObject);
var
S: WideString;
begin
S := '汉字';
ShowMessage(S[1]); //'汉'
ShowMessage(S[2]); //'字'
ShowMessage(IntToStr(Length(string(S[1])))); //2
end;
解决方案 »
- Dll使用问题,是不是内存泄漏?EurekaLog 的Memery Leaks
- 怎样用一个循环来计算整个个硬盘的大小,内详?
- 关于filelistbox的很菜的问题?filelisttbox.filename返回值???
- 一个妹妹的网站的宣传语,请兄弟姐妹参考一下啊。
- 在Delphi中如何向串中的Modem发AT命令?难道像字符串一样发送吗?还是有什么定义格式。
- 一个小问题,还请大家帮忙
- 哪儿有关于DELPHI处理数字医学图像的书?
- Report Machine如何实现在网页上打印预览,急求
- VC的DLL在DELPHI引用的问题?
- 最近论坛很冷淡,高手们好象都回家过年了 :)
- 我使用定時器的時候占用很大內存,怎麽讓程序點用更少的資源?
- 來送分羅,一個簡單的觸發器問題
if isdbcsleadbyte(ord(PChar(SendMsg)[0])) then showmessage('是汉字');