Создать список объектов

...
...
...
...
type
XYZ = class
public
  X: Integer;
  Y: Integer;
  Z: Integer;
  function Sets(sX,sY,sZ:Integer):Integer;
end;
 
function XYZ.Sets(sX,sY,sZ:Integer):Integer;
begin
  X := sX;
  Y := sY;
  Z := sZ;
end;
 
type
PathList = class
public
  Count_Item : Integer;
  List : array of XYZ;
  function Add(X,Y,Z:Integer):Integer;
end;
 
function PathList.Add(X,Y,Z:Integer):Integer;
var v_XYZ:XYZ;
begin
  v_XYZ.Sets(X,Y,Z);
  List[Count_Item] := v_XYZ;
  Count_Item := Count_Item + 1;
end;
 
 
function CreatePath():Integer;
var List:PathList;
var v_XYZ:XYZ;
begin
  List.Add(80363, 53769, -1586);
  //List.Add(80804, 53553, -1586);
  //List.Add(81512, 53475, -1488);
  //List.Add(82114, 53323, -1522);
  v_XYZ := List.List[0];
  print(v_XYZ.X);
end;

...
...
...
...
type
T_XYZ = class
public
  X: Integer;
  Y: Integer;
  Z: Integer;
  function Sets(sX,sY,sZ:Integer):Integer;
end;
 
function T_XYZ.Sets(sX,sY,sZ:Integer):Integer;
begin
  X := sX;
  Y := sY;
  Z := sZ;
end;
 
type
T_PathList = class
public
  Count_Item : Integer;
  List : array[1..5] of XYZ;
  function Add(X,Y,Z:Integer):Integer;
end;
 
function T_PathList.Add(X,Y,Z:Integer):Integer;
var v_XYZ:T_XYZ;
begin
  v_XYZ:=T_XYZ.Create;
  v_XYZ.Sets(X,Y,Z);
  List[Count_Item] := v_XYZ;
  Count_Item := Count_Item + 1;
end;
 
 
function CreatePath():Integer;
var List:T_PathList;
var v_XYZ:T_XYZ;
begin
  List:=T_PathList.Create;
  List.Add(80363, 53769, -1586);
  List.Add(80804, 53553, -1586);
  //List.Add(81512, 53475, -1488);
  //List.Add(82114, 53323, -1522);
  v_XYZ := List.List[0];
  print(v_XYZ.X);
  v_XYZ := List.List[1];
  print(v_XYZ.X);
end;

type
 
XYZ = class
public
  X: Integer;
  Y: Integer;
  Z: Integer;
  constructor Create(sX,sY,sZ:Integer);
end;
 
PathList = class
public
  List : array of XYZ;
//  constructor Create;
  procedure Add(X,Y,Z:Integer);
  function GetCount:Integer;
  destructor Destroy; override;
end;
 
{ XYZ }
 
constructor XYZ.Create(sX, sY, sZ: Integer);
begin
  X := sX;
  Y := sY;
  Z := sZ;
end;
 
{  PathList }
 
{
constructor PathList.Create;
begin
  SetLength(List,0);
end;
}
 
procedure PathList.Add(X,Y,Z:Integer);
var
  i:Integer;
begin
  i:=GetCount;
  SetLength(List,i+1);
  List[i]:=XYZ.Create(X,Y,Z);
end;
 
function PathList.GetCount:Integer;
begin
  result:=Length(List);
end;
 
destructor PathList.Destroy;
var
  i:Integer;
begin
  for I := 0 to High(List) do
      List[i].Free;
  inherited;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  List:PathList;
  v_XYZ:XYZ;
begin
  List := PathList.Create;
  try
    List.Add(80363, 53769, -1586);
    List.Add(80804, 53553, -1586);
    List.Add(81512, 53475, -1488);
    List.Add(82114, 53323, -1522);
    v_XYZ := List.List[3];
    Caption:=FloatToStr(v_XYZ.X);  // print(v_XYZ.X);
  finally
    List.Free;
  end;
end;