Как сделать смещение указателя типа Pointer?

[Vano]

Примерно так я написал:

Код: Выделить всё

var buf1,buf2:Pointer;
      len:integer;
      F:TFileStream;


......................
GetMem(buf, len);
Socket.ReciveBuf(buf^,len);
Buf2:=Buf1+5;                 //Здесь выскакивает ошибка
F.Write(Buf2,len);.......................

Как я не пытался задать смещение указателю типа Pointer все время выскакивает ошибка. Хотя тоже проделывал с PChar всё нормально работает. Почему так??

[AiK]

Vano, на сколько я помню, для нетипизированного указателя не определён размер. Поэтому +5 просто бессмысленно.
А для PChar всё понятно: +5 означает сдвинуться вперёд на 5 байтов.

[AiK]

Да, по идее должно прокатить что-то вроде слудующего:
Buf2:=PChar(Buf1)+5; Ну это если ты на 5 байтов сдвинутся желаешь.

[Vano]

Да я уже сделал. Почти так же как ты написал . Всё равно СПАСИБО!

[Naeel Maqsudov]

AiK, тут с точки зрения семантики кода вместо приведения к PChar логичнее делать приведение к типу Integer. Указатель-то нетипизированный...

Inc(Integer(Buf),5); или :=Integer(Buf)+5

[AiK]

Если я ничего не путаю, Inc(Integer(Buf),5); означает смещение на 20 байтов.
Т.е. если это именно то, что нужно, то почему бы и так не сделать?

[Naeel Maqsudov]

Ан нет!

Первый аргумент имеет тип Integer, стало быть тут чистая арифметика!

[AiK]

Действительно.
Правда, что происходит в этом примере как-то не очень мне понятно:

Код: Выделить всё

var P: Pointer;
begin
  P:=PChar('1234567890ABCDEFGHIJKLMN');
  Inc(Integer(P),2);
  ShowMessage(PChar(P));
end;

Я подразумевал Inc(pInteger(P),2); Здесь всё понятно - указатель сдвинули на 8 байтов, т.к. указатель на Integer имеет размер 4 байта. А что за фигня Integer(P)? Ведь в P хранится отнюдь не Integer...

[Naeel Maqsudov]

В Integer, в Integer.
Integer платформозависимый и для Win32 эквивалентен LongInt.

[Absurd]

А что за фигня Integer(P)? Ведь в P хранится отнюдь не Integer

Какая разница, чего там хранится. Это адрес? адрес.