比如:
cCityCode: array[0..1] of string = ('cCityCode1','cCityCode2');
cCityCode1: array[0..2] of string = ('aaa', '', '');
cCityCode2: array[0..2] of string = ('bbb', '', '');此时如何实现类似如下的功能
var z:string;z:=(cCityCode[0])[0]
cCityCode: array[0..1] of string = ('cCityCode1','cCityCode2');
cCityCode1: array[0..2] of string = ('aaa', '', '');
cCityCode2: array[0..2] of string = ('bbb', '', '');此时如何实现类似如下的功能
var z:string;z:=(cCityCode[0])[0]
解决方案 »
- TclientSocket向TIdTCPServer发送消息
- 水晶报表打包问题
- 如何编程实现改变工作组?
- 真正的DELPHI程序员要学会什么技术啊。!!多多指教。。
- 再问个问题,Ctrl+Delete这样的组合键怎么响应??
- 我想做一个程序,该程序能够与系统硬件挂钩,有人说:用检测CPUID的办法,但很快我就发现相同型号的CPU的ID都是相同的,请大家给点意见,
- 如何实现时间的递增:如2001-12-01 如何使之转化成2002-01-01.
- Delphi中如何将ACCESS表导入进SQL 2000数据库中
- 正在找工作,各位前辈以前是如何走上工作岗位的,望不吝赐教!少少分数,不成敬意!
- windows 优化大师的窗口是怎样做出来的?用的是flatstyle吗?我指的是那个窗口,其它的我肯定是 flatstyle.
- delphi 5怎么调用webserver
- 您知道吗?为什么TVirtualStringTree修改后不显示出来的问题
cCityCode: array[0..1] of string = ('cCityCode1','cCityCode2');
cCityCodeI: array[0..1] of array[0..2] of string = (('aaa', '', ''), ('bbb', '', ''));
var
i: integer;
s, z:string;
begin
z := '';
s := 'cCityCode2';
for i := Low(cCityCode) to High(cCityCode) do
if s = cCityCode[i] then
begin
z := cCityCodeI[i][0];
Break;
end;
end;