Pascal samples. Array initializers.


type
  TPoint = record
    X, Y: Single;
  end;
  TVector = array[0..1] of TPoint;
const
  Line: TVector = ((X: -3.1; Y: 1.5), (X: 5.8; Y: 3.0));
begin
  writeln(Line[1].X);
end.


Copyright © 2006-2017 Alexander Baranovsky. All rights reserved.