[Sindy]

Вот у меня есть код :

Код:

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е я не бум бум((

[lmikle]

Открой сырцы VCL и посмотри примеры. Только тут такой вопрос - а зачем??? Код на Дельфи работает достаточно быстро и тут просто не имеет смысла потимизировать, перекладывая на асемблер.

Что типа того:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var n1,n2:int64;
begin
  n1 := StrToInt64(Edit1.Text);
  asm
        MOV     EAX,n1
        MOV     EBX,$0000FF00
        XOR      EAX,EBX
        MOV     n2,EAX
  end;
  Edit2.Text := IntToStr(n2);
end;

[Sindy]

мне просто учитель сказал сделать в Делфи и чтоб потом в Асме работала)сам не знаю зачем))