Schade, das Delphi bei Pointer Arithmetic nicht jedes Spiel mitmacht, so muß man manchmal trickreich über PAnsiChar casten...
Hast du auch sowas wie Folgendes versucht?
Delphi-Quellcode:
type
TByteArray = array[0..0] of Byte;
PByteArray = ^TByteArray;
procedure TForm11.FormCreate(Sender: TObject);
var
P, Q: PByteArray;
begin
P := Pointer(123);
Inc(P);
Q := Pointer(100);
//Q := Q + 20; // geht nicht -.-
//Q := PByteArray(Q) + 20; // och nicht
Inc(Q, 23);
if P = Q then
Beep;
end;
[edit]
OK, ist natürlich blöd, daß
+ komischer Weise nicht geht.
(D2010)