var map:array[0..7,0..9] of string;
map[0,0]:='621';map[0,1]:='682';map[0,2]:='777';map[0,3]:='565';map[0,4]:='763';map[0,5]:='713';map[0,6]:='104';map[0,7]:='131';map[0,8]:='856';map[0,9]:='716';
map[1,0]:='920';map[1,1]:='240';map[1,2]:='151';map[1,3]:='494';map[1,4]:='957';map[1,5]:='774';map[1,6]:='216';map[1,7]:='922';map[1,8]:='293';map[1,9]:='000';
map[2,0]:='025';map[2,1]:='518';map[2,2]:='436';map[2,3]:='379';map[2,4]:='147';map[2,5]:='725';map[2,6]:='519';map[2,7]:='963';map[2,8]:='400';map[2,9]:='210';
map[3,0]:='193';map[3,1]:='493';map[3,2]:='375';map[3,3]:='282';map[3,4]:='241';map[3,5]:='984';map[3,6]:='690';map[3,7]:='991';map[3,8]:='272';map[3,9]:='589';
到map[3,0]:='193'处就出错了,不了啊,是不是定义错了
------解决方案--------------------------------------------------------
代码没问题，可能是在用map[3,0]的时候错了
不过一般delphi数组下标都是从1开始的