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;