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;
相关问答:
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
我调用vc的dll,传送结构体参数。vc接受后从内存中拷贝出我传送的值。转换之后是乱码
来错地方了.
去DELPHI
ddd
知道错了
有没具体代码啊
//向终端发送门禁报警信息
function alar ......
求 delphi webserivice 调用例子
服务端编写:新建"WebServices-->SOAP Server Application-->ISAPI/NSAPI Dynamic Link Library","Service name"填写你要的服务名,如"SendS ......
我想用 Delphi 编写包含函数的 Dll,然后在 Excel VBA 调用。试了很多次都无法返回正确的结果。
具体如下:
Delphi7 中的测试源码:
//********************************************************* ......
请问如何设置一个按钮,一点到它就不断执行按钮上加载的事件,知道点击另一个按钮才会停止,因为写了个选号的小程序,希望可以像电视上那样,一点就不断的刷 而不是点一下刷一下!!
两种方法
1.用timer去控制执 ......