| 18 |  | edit_datatype: TEdit; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 19 |  | procedure btn_cancelClick(Sender: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 20 |  | procedure btn_okClick(Sender: TObject); | 
 
 
 
 
 
 
 
 
 
 
 | 21 | < | procedure MakeVarInput(objectname: String; offset: LongWord; | 
 
 
 
 
 
 
 
 
 | 21 | > | procedure MakeVarInput(objectname: String; offset: Integer; | 
 
 
 
 
 
 
 
 
 
 
 | 22 |  | datatype: Word; current: String; caller: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 23 |  | procedure FormCreate(Sender: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 24 |  | private | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 40 |  | caller_win_dat: TForm_BinEdit; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 41 |  | caller_win_raw: TForm_RawEdit; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 42 |  | _datatype: Word; | 
 
 
 
 
 
 
 
 
 
 
 | 43 | < | _offset: LongWord; | 
 
 
 
 
 
 
 
 
 | 43 | > | _offset: Integer; | 
 
 
 
 
 
 
 
 
 
 
 | 44 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 45 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 46 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 47 |  |  | 
 
 
 
 
 
 
 
 
 
 
 | 48 | < | procedure TForm_ValueEdit.MakeVarInput(objectname: String; offset: LongWord; | 
 
 
 
 
 
 
 
 
 | 48 | > | procedure TForm_ValueEdit.MakeVarInput(objectname: String; offset: Integer; | 
 
 
 
 
 
 
 
 
 
 
 | 49 |  | datatype: Word; current: String; caller: TObject); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 50 |  | begin | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 51 |  | caller_win_dat := nil; |