Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- basicATPA: T2DPointArray;
- begin
- SetLength(basicATPA, 1);
- basicATPA[0] := [Point(0, 0), Point(0, 1)];
- WriteLn('basicATPA[0][0]: ' + PointToStr(basicATPA[0][0]));
- WriteLn('basicATPA[0][1]: ' + PointToStr(basicATPA[0][1]));
- SetLength(basicATPA, 0);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
