1:

Dies habe ich vor : ->> XCHG EAX,ESI					

1:
2:
3:
4:

Function ByteSwap(i: Word): Word;
ASM
  XCHG EAX, ESI;
End;					

1:
2:

Aufruf versuch: ->>
A := ByteSwap(A(Y)); .... A := ByteSwap(a[Y]);    da muckt er auch rum :( ....					

1:
2:
3:
4:
5:

asm
  mov eax,a
  mov esi,y
  XCHG EAX, ESI;
end;					

1:
2:
3:
4:

procedure ByteSwap(var a,b:Word);inline;
ASM
XCHG ESI,EDI //welches register is der 2. param?
End;					

1:
2:

Var
   a, y : Integer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure ByteSwap(var a,b:Integer);
ASM
XCHG ESI,EDI //welches register is der 2. param?
End;

procedure TForm1.btn1Click(Sender: TObject);
var a , b : Integer;
begin
  A := 10;
  B := 22;
  A := ByteSwap(0,a);
  txt1.Text := IntToStr(a);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure Exchange(var a, b: Word);
var
  h: Word;
begin
  h := a;
  a := b;
  b := h;
end;