Вот у меня есть код :
Код:
procedure TForm1.Button1Click(Sender: TObject);
var n1,n2:int64;
begin
n1 := StrToInt64(Edit1.Text);
n2 := n1 xor $0000FF00;
Edit2.Text := IntToStr(n2);
end;
Admin: Последнее предупреждение по оформлению кода! При рецедиве БАН.
И учитель сказал сделать чтобы этот код в Asme работал)не поможете?)в Asmе я не бум бум((