[Rokuell]

Сообщение от Sindy

инвертировала у этого числа 2ой байт (справа)

Справа --- каких именно младших или старших байт ?

2 младших:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var n1,n2:integer;
begin
 n1 := StrToInt(Edit1.Text);
 n2 := n1 xor $0000FFFF;
 Edit2.Text := IntToStr(n2);
end;

2 старших:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var n1,n2:integer;
begin
 n1 := StrToInt(Edit1.Text);
 n2 := n1 xor $FFFF0000;
 Edit2.Text := IntToStr(n2);
end;

P.S. Это при условии что работа происходит с 4 байтными типами, если нет - изменяй маски