delphi 数组如何动态增加
//下面是一记录，三维坐标
type
Tposition = record
x:integer;
y:integer;
z:integer;
end;
//======下面是要在一个循环中动态地增加三维坐标数据的长度
//请问如何写会高效。
produce getposition(Sender: TObject)
var
position:array of record;
begin
。。。
for i =A to B do
if k then
position增加一个C（xc,yc,zc)的数; //这里如何写？
。。。
end;
请大侠指点。谢谢！！
SetLength
starluck：
具体如何写？
每次都用setlength?
SetLength(Length(position)+1)
position:array of record; //貌似应当是position:array of Tposition;
____________
SetLength(position, Length(position) + 1);
with position[Length(position) - 1] do
begin
x := xc;
y := yc;
z := zc;
end;
相关问答：
如题。
感觉如何？交流下。
没有研究过，呵呵
有啥研究头？
那个东西，是个鸡肋，，没有什么意思，发现！！
用来做B/S架构的MIS系统的话应该可以提高界面开发的效率吧？
因为不熟悉Delphi � ......
delphi 函数：
function RB(A: longint): longint;
begin
Result := (A shr 24) or ((A shr 8) and $FF00) or ((A shl 8) and $FF0000) or (A shl 24);
end;
我转成C#：
& ......
我想用 Delphi 编写包含函数的 Dll，然后在 Excel VBA 调用。试了很多次都无法返回正确的结果。
具体如下：
Delphi7 中的测试源码：
//********************************************************* ......
请问如何设置一个按钮，一点到它就不断执行按钮上加载的事件，知道点击另一个按钮才会停止，因为写了个选号的小程序，希望可以像电视上那样，一点就不断的刷 而不是点一下刷一下！！
两种方法
1.用timer去控制执 ......
请问各位能不能看到delphi中自带组件的内部代码,比如怎么去看speedbutton的flat方法中的代码等.
SpeedButton1.Flat
鼠标移到Flat上，按住Ctrl键，左击
对了，SpeedButton1 必须是创建好的
是啊，就这� ......
