易截截图软件、单文件、免安装、纯绿色、仅160KB

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;



相关问答:

ACCESS的自定义函数在delphi里怎么用呢...

我在模块里自定义了一个函数:stradd()

可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...

这个问题有什么办法可以解决的吗? 非常感激!


(在A ......

delphi如何向Access数据表中自定义字段

delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀

分分忒少咧,一般人都懒得进来……*^_^*

SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))

ADOQue ......

delphi 除法 "/" 与 div 的不同

[size=18px]var s,n:integer;
begin
write('输入变长的条数n');       
readln(n);
[color=#FF0000]s:=n*(n-1)*(n-2)div 6;    //本行替换为s:=n*(n-1)*(n-2)/ ......

求 delphi webserivice 调用例子

求  delphi webserivice 调用例子
服务端编写:新建"WebServices-->SOAP Server Application-->ISAPI/NSAPI Dynamic Link Library","Service name"填写你要的服务名,如"SendS ......

关于delphi字符串的问题!

从数据里读出一些数据放到一个listview里 然后用户要搜索‘跑车’ 我就要把只要有跑车字眼的数据都取出来比如’法拉利跑车‘ 请问 这个字符串怎么比较呀?  不能在数据库里写存储过程来取,只能在当前的listvie ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号