关于数字A和数字B的关联方法？

[lazeping]

由数字A通过一定的过程可以得到数字B，现在知道数字B，要求数字A的值，应该用什么方法呀？
我的方法如下：
type
TID = Record
SubTaskID: integer;
smsID: integer;
end;

var stateID:array of TID;

//附值
begin
setlength(stateID,count);
for i := 0 to Count -1 do
begin
stateID[i].SubTaskID:= a[i,1];
stateID[i].smsID:= a[i,2];
end;
end;

//查找
var
tmp:integer
begin
for i := 0 to Count -1 do
begin
if stateID[i].smsID = 某个数值 then
begin
tmp:=stateID[i].SubTaskID;
break;
end;
end;
end;

可是这种方法和软件环境冲突，即（count 长度在运行中可变）。。
求助：有什么好的办法没？

[小呆之家]

for i := low(stateID) to high(stateID) do
这样就不会有越界的问题了。。。。

[光明山人]

如果 count 会变，改用 while 循环即可。