[Sindy]

Нудна очень прога на Delphi и на Asm е ,чтобы в строку вписывать число в 10ой СС а програма преобразовывала его в 2ную СС , инвертировала у этого числа 2ой байт (справа) и на экран выводила уже результат (число) в 10ной СС)

[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 байтными типами, если нет - изменяй маски

[Sindy]

Чтобы инвертировала Второй байт справа)число Четырех байтное)

[Rokuell]

Ну и используй тогда маску $0000FF00

[Sindy]

Спасибо тебе большое )ты очень добрый)