我的object pascal很烂，请哥哥弟弟们帮我构建几个函数，我这里有很多vcl的组件我这里有很多vcl的组件，1.5G左右有解决的，你要什么我帮你搞谢谢了

我的object pascal很烂，请哥哥弟弟们帮我构建几个函数，我这里有很多vcl的组件我这里有很多vcl的组件，1.5G左右有解决的，你要什么我帮你搞谢谢了(30分)<br />我的object pascal很烂，请哥哥弟弟们帮我构建几个函数，我这里有很多vcl的组件我这里有很多vcl的组件，1.5G左右有解决的，你要什么我帮你搞谢谢了
已经定义好了几个record类型
type
TPointRec = record
str: string;
dir: integer;
S_x, S_y: integer;
sound: integer;
end;
TDotRec = record
x, y: integer;
n_x, n_y: integer;
counter: integer;
S_x, S_y: integer;
n_s_x, n_s_y: integer;
end;

给上面类型都以赋好了值,我想写一个function mDir
1
2 3
4 5 6
7 8
9 10 11
12 13
14 15 16
17 18
19
这是有十九个点构成的一个六边形，刚才的pointrec.dir就是在每一个数字上的一个指针当button点击一下，他就患一个方向这个函数怎么写？
第二个function 点的数据结构就是dotrec这个record类型在1，6上有两个点，可以按照刚刚给定的，direction，去运动
这两个函数怎么写？，如过有人搞定，我把我积攒了这几年的delphi的资料全部献上
vcl类1.5G，书籍类600M，我的邮箱：pangpanglaila@yahoo.com.cn,,在线等

楼主，我没看明白你想做什么。

怎么能实现我上面的功能呢，不构建函数怎么实现？
说明白点就是怎么实现在六边形的上有两个点,怎么能让我在点击其中一个点后可以让这个点在六边形上按箭头运动,我那里面的pointrec.dir就是箭头的方向

有意思 帮你顶一下

我想，你可以先不想什么 按箭头运动，
运动你可以这么想吧：
GetPath(Fpoint,Lpoint:integer):string
//获取两点之间的运动轨迹
ShowPoint(apoint,Fpoint,Lpoint:integer);//点apoint从Fpoint运动到Lpoint
一共19个点，开始的位置在 Point[1],现在要运动到Point[19]，那么你可以用GetPath函数获取两者之间的路径，比如 1->5->10->15->19
然后开始显示
begin
ShowPoint(apoint,1,5);
ShowPoint(apoint,5,10);
ShowPoint(apoint,10,15);
ShowPoint(apoint,15,19);
end;