type AICoordinates = class()
Constructor Create( aParent: pointer; aX: integer; aY: integer); |
|
function DistanceTo(aDestination: AICoordinates): integer; |
|
procedure LoadFromFile(var aFile: TextFile); |
|
function OneLineDisplay: string; |
|
procedure SaveToFile(var aFile: TextFile); |
Constructor Create( aParent: pointer; aX: integer; aY: integer); |
function DistanceTo(aDestination: AICoordinates): integer; |
procedure LoadFromFile(var aFile: TextFile); |
function OneLineDisplay: string; |
procedure SaveToFile(var aFile: TextFile); |
property X: integer; |
|
property XS: single; |
|
property Y: integer; |
|
property YS: single; |
property X: integer; |
property XS: single; |
XS = X *10.0
property Y: integer; |
property YS: single; |
YS = Y *10.0