--- oup/current/Helper/ValueEdit.pas 2007/02/21 03:12:33 109 +++ oup/current/Helper/ValueEdit.pas 2007/02/21 03:28:48 111 @@ -18,7 +18,7 @@ type edit_datatype: TEdit; procedure btn_cancelClick(Sender: TObject); procedure btn_okClick(Sender: TObject); - procedure MakeVarInput(objectname: String; offset: LongWord; + procedure MakeVarInput(objectname: String; offset: Integer; datatype: Word; current: String; caller: TObject); procedure FormCreate(Sender: TObject); private @@ -40,12 +40,12 @@ var caller_win_dat: TForm_BinEdit; caller_win_raw: TForm_RawEdit; _datatype: Word; - _offset: LongWord; + _offset: Integer; -procedure TForm_ValueEdit.MakeVarInput(objectname: String; offset: LongWord; +procedure TForm_ValueEdit.MakeVarInput(objectname: String; offset: Integer; datatype: Word; current: String; caller: TObject); begin caller_win_dat := nil;