--- oup/rewrite/Helper/ValueEdit.pas 2007/02/20 22:03:11 104 +++ 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 @@ -32,7 +32,7 @@ var implementation -uses BinEdit, {RawEdit, }DatStructureLoader, Main; +uses BinEdit, RawEdit, DatStructureLoader, Main; {$R *.dfm} @@ -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;