用汉字做字符串数组的下标
1.用汉字做字符串数组的下标
2.需要返回下标的函数
例如
test[汉]
test[字]

[解决办法]
这个做不了吧？
[解决办法]
从D8开始还就是可以使用unicode标识符。:)

[解决办法]
的下用字是器定了的，不可能改的。
[解决办法]
不是说了可以吗。
把以下代码保存为test.dpr，注意要unicode编码，然后在命令行执行：dcc32 test.dpr
再运行试试。:)

{$APPTYPE CONSOLE}
program test;
type
汉字类型=(汉, 字, 类, 型);

var
汉字数组: array[汉字类型] of string = ( '汉 ', '字 ', '类 ', '型 ');
循环变量: 汉字类型;
begin
for 循环变量 := 汉 to 型 do
writeln(汉字数组[循环变量]);
end.

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
A: array[Word] of Integer;
begin
A[Ord(WideString( '汗 ')[1])] := 2007;
A[Ord(WideString( '啊 ')[1])] := 2008;

Caption := IntToStr(A[Ord(WideString( '汗 ')[1])] +
A[Ord(WideString( '啊 ')[1])]);
end;

[解决办法]
哎!
[解决办法]
DelphiGuy() 强悍啊～

不过(引用一下强哥的话)，这样真的会很爽吗？
[解决办法]
这样会很爽吗？
[解决办法]
可以实现
A[ '汉 ']的形式.不过较复杂.看一下oop开发.
[解决办法]
啥地方用的着？
[解决办法]
我晕.....