delphi 数组如何动态增加

Question

//下面是一记录，三维坐标
type
  Tposition  = record
    x:integer;
    y:integer;
    z:integer;
  end;//======下面是要在一个循环中动态地增加三维坐标数据的长度
//请问如何写会高效。
produce getposition(Sender: TObject)
varposition:array of record;begin

   for i =A to B do
    if k then
        position增加一个C（xc,yc,zc)的数;  //这里如何写？

end;
 
请大侠指点。谢谢！！

Answer 1

starluck：  具体如何写？
  每次都用setlength?

Answer 2

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;