Pointerinhalt verändern

[brechi]

Delphi-Quellcode:

for i := 0 to 50-1 do
  pbyte(integer(copybuffer)+i)^ := pbyte(integer(copybuffer)+i)^+vari[i];

oder du machst:

Delphi-Quellcode:

type tbla: array[0..0] of byte;
     pbla: ^tbla;
     bla: pbla;
begin
  bla := copybuffer;
  for i := 0 to 50-1 do
    bla[i]^ := bla[i]^+var[i];
end;