1.用汉字做字符串数组的下标
2.需要返回下标的函数
例如
test[汉]
test[字]
2.需要返回下标的函数
例如
test[汉]
test[字]
解决方案 »
- 请教:ADOStoredProc1.Parameters.CreateParameter('@SpSetYh1',ft,pdinput,100,RichEdit1.text);中的 ft 是什么类型啊?
- 严重求救!!!!!!!!!!我都10天没搞定的问题了
- 送分
- 三层,用DCOM通迅协议,在XP中如何设置DCOM,用Dcomcnfg.exe设置吗,好像没有多少资料介绍在XP下设置DCOM的,
- 有谁能写一个简单的有关三层中用COM+封装商业逻辑的范例代码。
- 使用OleContainer连结Word以后,如何用程序自动添加页眉页脚
- 救救一个郁闷中的初学者
- $$$$$$$$$$$$$$$$调查:->你们刚计算机本科毕业时薪水拿多少啊?工作了多少年?现在又是拿多少?$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
- 再问:怎样快速检测某个超链接是否能通?
- UPX 能破坏文件中的资源?
- intraweb做网页时,用IWTemplateProcessorHTML1布局,为什么IWRegion1中的控件位置会乱呀
- simpledataset的refresh问题,请指教
把以下代码保存为test.dpr,注意要unicode编码,然后在命令行执行:dcc32 test.dpr
再运行试试。:){$APPTYPE CONSOLE}
program test;
type
汉字类型=(汉, 字, 类, 型);var
汉字数组: array[汉字类型] of string = ('汉', '字', '类', '型');
循环变量: 汉字类型;
begin
for 循环变量 := 汉 to 型 do
writeln(汉字数组[循环变量]);
end.
Copyright (c) 1983,2002 Borland Software Corporation
test.dpr(4) Error: Illegal character in input file: '汉' ($BABA)
test.dpr(4) Error: Illegal character in input file: '字' ($D7D6)
test.dpr(7) Error: Illegal character in input file: '汉' ($BABA)
test.dpr(7) Error: Illegal character in input file: '汉' ($BABA)
test.dpr(7) Error: Data type too large: exceeds 2 GB
test.dpr(7) Error: Number of elements differs from declaration
test.dpr(8) Error: Illegal character in input file: '循' ($D1AD)
test.dpr(8) Error: Illegal character in input file: '字' ($D7D6)
test.dpr(10) Error: Illegal character in input file: '循' ($D1AD)
test.dpr(10) Error: Illegal character in input file: '汉' ($BABA)
test.dpr(11) Error: Illegal character in input file: '汉' ($BABA)
test.dpr(11) Error: Illegal character in input file: '环' ($BBB7)
test.dpr(12) Error: Expression expected but 'END' found
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;
A['汉']的形式.不过较复杂.看一下oop开发.