|
Registriert seit: 21. Jan 2004
Ort: Bei Hamburg
308 Beiträge
Delphi XE2 Professional
|
Re: Pointer operation
12. Mär 2009, 15:34
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 
|