...
Declaration:
ResultPointX: Double;
Source Code
...
Delphi
Code Block | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
var x, y: double; begin if getpoint(x, y, 'Click Point') = 1 then result := resultpointx; // should be same as x end; |
...
...
Declaration:
ResultPointX: Double;
...
Code Block | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
var x, y: double; begin if getpoint(x, y, 'Click Point') = 1 then result := resultpointx; // should be same as x end; |
...