Pointer operation

[x000x]

Also so funktionierts...

Delphi-Quellcode:

var
   pData : PWord;
   a     : Integer;
   i     : Integer;
begin
   a := $FFFF0000;
   pData := @a;
   for i := 0 to DatLen-1 do
   begin
      if pData^ = $0000 then
        Inc(pData)
      else
        Dec(pData);
   end;

Ok, hat sich dann wohl erledigt