不用字符串,如何将单个汉字赋给一个字符变量?

[bf117]

不用字符串,如何将单个汉字赋给一个字符变量?

[blactte]

一个汉字两个字节
好像字符变量不行
可以用word类型

[ehom]

var
WChr:WChar;
Str:WideString;
begin
Str:='啊';
WChr:=WChar(str[1]);
end;

[mengxianbao1521]

？！ 对了

[bf117]

var
WChr:WChar;
*************
wchr:='我'
*********************
[Error] Unit1.pas(30): Incompatible types: 'WideChar' and 'String'
**************************************

[bf117]

sos!sos!

[ehom]

编译器不是告诉你了吗？类型不同！当然不能赋值！按照我的方法做不就可以了！实在要用字符也是字符数组array[0..1] of char！有些问题需要你了解各种数据类型到底是怎么回事，不要想当然可以！

var
WChr:WChar;

WChr:=WideString('我')[1]//字符和字符串是两个概念！

或者用两个Char,或字符数组

var
MyChar1,MyChar2:Char;

MyChar1:='我'[1];
MyChar2:='我'[2];