关于数组问题，所有的数组已经const定义并负好值了，但不知道怎么做为参数调用，关于省市问题，在线等待

Question

PrvCity:array [0..30] of string=(
  '北京',  '天津',  '上海',  '重庆',
  '安徽省','福建省','甘肃省','广东省',
  '贵州省','海南省','河北省','河南省',
  '湖北省','湖南省','吉林省','江苏省',
  '江西省','辽宁省','四川省','青海省',
  '山东省','山西省','陕西省','云南省',
  '浙江省','黑龙江省','内蒙古自治区','宁夏回族自治区',
  '西藏自治区','新疆维吾尔自治区','广西壮族自治区'
  );
BeiJing:array [0..11,0..2] of string=(
    ('北京市','100000','010'),('通县','101100','010'),('平谷县','101200','010'),('顺义县','101300','010'),('怀柔县','101400','010'),('密云县','101500','010'),('延庆县','102100','010'),('昌平县','102200','010'),('门头沟区','102300','010'),('房山区','102400','010'),('燕山区','102500','010'),('大兴县','102600','010')
    );
  TianJin:array [0..8,0..2] of string=(
    ('天津市','300000','022'),('塘沽','300450','022'),('汉沽','300480','022'),('宁河县','301500','022'),('静海县','301600','022'),('武清县','301700','022'),('宝坻县','301800','022'),('蓟县','301900','022'),('大港区','300270','022')
    );
  ShangHai:array [0..11,0..2] of string=(
  ('上海市','200000','021'),('近郊区','200100','021'),('上海县','201100','021'),('川沙县','201200','021'),('南汇县','201300','021'),('奉贤县','201400','021'),('金山县','201500','021'),('松江县','201600','021'),('青浦县','201700','021'),('嘉定县','201800','021'),('宝山县','201900','021'),('崇明县','202100','021')
  );
  ChongQing:array [0..23,0..2] of string=(
   ('渝中区','400010','023'),('永川市','632100','023'),('江北区','400020','023'),('江津市','632260','023'),('沙坪坝区','400030','023'),('长寿县','631220','023'),('九龙坡区','400050','023'),('大足县','632300','023'),('南岸区','400060','023'),('璧山县','632760','023'),('大渡口区','400080','023'),('荣昌县','632400','023'),('北碚区','400700','023'),('潼南县','632660','023'),('万盛区','400800','023'),('铜梁县','632560','023'),('双桥区','400900','023'),('綦江县','631420','023'),('渝北区','401120','023'),('万县市','634100','023'),('巴南区','401320','023'),('涪陵市','648000','023'),('合川市','401520','023'),('黔江地区','648700','023')
   );
  AnHui: array [0..17,0..2] of string=(
  ('合肥市','230000','0551'),('淮南市','232000','0554'),('蚌埠市','233000','0552'),('宿州市','234000','0557'),('淮北市','235000','0561'),('阜阳市','236000','0558'),('亳州市','236800','0558'),('六安市','237000','0564'),('巢湖市','238000','0565'),('滁州市','239000','0550'),('芜湖市','241000','0553'),('宣州市','242000','0563'),('黄山市','242700','0559'),('马鞍山市','243000','0555'),('铜陵市','244000','0562'),('黄山市','245000','0559'),('歙县','245200','0559'),('安庆市','246000','0556')
  );
比方说，我选了安徽省，就想把AnHui这个数组负给一个变量V，如果选了北京，就把Beijing负给V如何做啊，

Answer 1

不明白你的意思.我觉的很好做啊,你是不是不知道安徽省-->AnHui的对应还是啥的,这个问题应该简单你写死你就知道了.如果不知道怎样调用那你就把你的AnHui当成一个常量来用,带到你的函数中去,当成一个公共的参数.按照你的数组来取就是了.

Answer 2

1 作为常量使用。
2 作为参数传递：
procedure a(value :array of string);3 放到TString类型：for i:=Low(PrvCity) to High(PrvCity) do
  Memo1.Lines.Add(PrvCity[i]);

Answer 3

数组这么定义比较麻烦,需要定义很多
不如以下:
PrvCity:array [0..30,0..1] of string=(('北京','010'),('天津','022'), ...  );
PrvCityList : array [0..所有城市数量-1,0..2] of string=(
('渝中区','400010','023'),
('北京市','100000','010'),
('合肥市','230000','0551'),
 ... 
 );
这样当选择省后,可以根据区号在 PrvCityList 中列出相关的城市

Answer 4

我不是要查询，只是随机取出一个城市，还有一种方法的这样(省，市，zip,tel)数组中列出出有的城市这样也行，如果按我题目的要求，不知道能不能实现