1 unit MainFM; 2 3 interface 4 5 uses 6 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 7 Vcl.Controls, Vcl.Forms, Vcl.Dialogs,utils_dvalue, utils_DValue_JSON, math; 8 9 type 10 PPos = ^TPos; 11 TPos = record 12 x: double; 13 y: double; 14 end ; 15 TForm1 = class (TForm) 16 procedure FormCreate(Sender: TObject); 17 procedure FormDestroy(Sender: TObject); 18 private 19 { Private declarations } 20 FInfo: TDValue; 21 min_x, min_y, max_x, max_y: Double; 22 function in _line(p, a, b: TPos):boolean; 23 function in _scope(x, y: double):boolean; 24