C
Chinester
Unregistered / Unconfirmed
GUEST, unregistred user!
如图：
在INI 文件里存放了 每个点 可以通行的 座标
如：
B点可以连接 A C 文件中：
point1=A
point2=C
E 可以连接 C G 文件中表示：
[E]
point1=C
point2=G
现在要求取 F 到 A 所经过的点
如何算出来？ 当然实际用的时候不是这么简单的。就只有一堆INI 文件
没写过。现在自己的写法是：
调用：myget( getlst(cbb1.Text),cbb2.Text);
Getlst 的作用是取指定的点 可以连接的点 返回Tstringlist
cbb1.text 为指定的点的名称
cbb2.text 为目标的名称
myget 的内容：
function Tform1.lx(l:tstringlist;t:string):string;
var i,x:integer;
begin
if CC<>9 then
begin
for i:=0 to l.Count-1 do
begin
lx(getlst(l.Strings,False),t);
if l.Strings=t then///
begin
cc:=9;
mmo1.lines.add('找到点');
end;
end;
end;
end;
现在的问题是我的写法。不一定能取到结果。就算取到结果。也没有过程。
而且这样写的 循环 无法退出。
100分，请会的兄弟帮忙看看。有个代码最好。
在INI 文件里存放了 每个点 可以通行的 座标
如：
B点可以连接 A C 文件中：
point1=A
point2=C
E 可以连接 C G 文件中表示：
[E]
point1=C
point2=G
现在要求取 F 到 A 所经过的点
如何算出来？ 当然实际用的时候不是这么简单的。就只有一堆INI 文件
没写过。现在自己的写法是：
调用：myget( getlst(cbb1.Text),cbb2.Text);
Getlst 的作用是取指定的点 可以连接的点 返回Tstringlist
cbb1.text 为指定的点的名称
cbb2.text 为目标的名称
myget 的内容：
function Tform1.lx(l:tstringlist;t:string):string;
var i,x:integer;
begin
if CC<>9 then
begin
for i:=0 to l.Count-1 do
begin
lx(getlst(l.Strings,False),t);
if l.Strings=t then///
begin
cc:=9;
mmo1.lines.add('找到点');
end;
end;
end;
end;
现在的问题是我的写法。不一定能取到结果。就算取到结果。也没有过程。
而且这样写的 循环 无法退出。
100分，请会的兄弟帮忙看看。有个代码最好。