关于 delphi 数组查询问题(跪求高手帮忙)(100分)

L

lljimo

Unregistered / Unconfirmed
GUEST, unregistred user!
问题是这样的:
1 2 3 4 5 6
edt1 edt2 edt3 edt4 edt5 edt6
1 2 3 4 5 6
edt7 edt8 dt9 edt10 edt11 edt12
shap1 shap2 shap3 shap4 shap5 shap6
二维数据表如下:
6 7 8 9 A B C D E F G H
0 15 15 15 15 15 15 15 15 15 15 15 15
1 14 14 14 15 15 15 15 15 15 15 15 15
2 14 14 14 14 14 14 14 15 15 15 15 15
3 13 13 13 13 14 14 14 14 14 14 15 15
4 13 13 13 13 13 14 14 14 14 14 14 14
A 12 12 12 12 12 12 12 12 12 12 12 13
B 12 12 12 12 12 12 12 13 13 13 13 13
C 11 11 11 11 11 11 12 12 12 12 12 12
D 11 11 11 11 11 11 11 11 11 11 11 11
E 11 11 11 11 11 11 11 11 11 11 11 11
其中 11代表兰色 12代表黑色 13代表绿色 14 代表橘色 15代表栗色
现在在第一行的1--6下的6个edit控件中随即输入 6个数 ,然后在第二行1--6 个edit控件中在输入6个数,每行的(1,1) (2,2),。。(6,6)构成以个数组,比如;
第一行 输入的 是 c 6 8 d h f
第二行 输入的 是 e 0 1 a 4 b
我们就在表中查找 ce对应的数是11 , 60对应的数是15 , 81对应的数是14 da对应的数是12 ,h4对应的数是14, fb对应的数是13
得到对应的数后,然后按照每个数所代表的颜色 ,在相应的shap 空间中将其颜色显示出来
如果每行输入的数在数据库中找不到,将提示信息,没有相对应的数,请重新输入
数据库是sql server 用数组来做 如何来进行查找实现
请各位高手解答:
 
H

hanpengshan_00

Unregistered / Unconfirmed
GUEST, unregistred user!
无非是数组index影射的问题,楼主觉得这个很复杂吗?
1 定义一个2唯数组保存这些数据,0..11,0..11
2 数组中索引定位算法,核心
//把你的输入做个判断,只传一个小写字符转化成int过来,使用ord函数,也可以在这里
//就对输入全部做判断,用户输入不正确就不进行后继的工作
procedure map(var row,var col: integer);
begin
if not row in [6..9,64..71] then
输入的行参数有问题;
if not col in [0..4,64..68] then
输入的列参数有问题
if row in [6..9] then
row := row - 6
else
row := row - 64 + 4;
if col in [64..68] then
col := col + 5;
既然行列都有了,取数组值总知道了吧,还有的工作自己完成吧
end;
 
L

lljimo

Unregistered / Unconfirmed
GUEST, unregistred user!
楼上高手,您能将步骤在详细点吗??我还是有点蒙,从定义数组开始谢谢您了!!
if not row in [6..9,64..71]
if not col in [0..4,64..68]
这里的 [6..9,64..71]和[0..4,64..68]是什么意思,另外,我填完数字,我要去数据库中查找他们,我们是不是应该利用2个循环啊!!
 
H

hanpengshan_00

Unregistered / Unconfirmed
GUEST, unregistred user!
64就是A啊,65就是B嘛
s := UpperCase(trim(edt1.text));
if length(s) > 1 then
输入错误,也可以做更多的判断
传参数的时候map(Ord(s[1]),...)
数组直接定义成
type TMyColor = array[0..11, 0..11] of Integer;
ColorArr: TMyColor;
把那里面的数据赋值到数组会吧,不会就查下帮助
调用map(i,j)返回i,j
colorArr[i,j]就是对应的颜色嘛
 
L

lljimo

Unregistered / Unconfirmed
GUEST, unregistred user!
type TMyColor = array[0..11, 0..11] of Integer;
[0..11, 0..11]什么意思 怎么是11呢
 
L

lljimo

Unregistered / Unconfirmed
GUEST, unregistred user!
高手!!您还是把整个编程步骤一步一步的写下来吧!!我自己研究研究!!太谢谢您了!!!
 
L

lljimo

Unregistered / Unconfirmed
GUEST, unregistred user!
难道就没有高手来帮帮忙吗[:(]
 
L

lljimo

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 
顶部