Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопросик по указателям [D7, XP]

Очень Злой © (2013-01-21 00:31:00)
Есть некий буфер, из которого нужно взять допустим integer, находящийся по адресу offset от начала буфера. Как это правильно написать?
Правильно ли так?

function GetInteger(var source; var offset:word):Integer;
begin
result:=Pinteger(integer(@source)+offset)^;
inc(offset,4);
end;

или так:
function GetInteger(var source; var offset:word):Integer;
begin
result:=PInteger(@pchar(@source)[offset])^;
inc(offset,4);
end;

А то что-то начинаю путаться...

Dimka Maslov (2013-01-21 20:40:00) [1]

> + с некоторых пор Pointer стал не Integer ;-)

Гораздо раньше.

bems (2013-01-21 20:11:00) [2]

> скорее разрядность Integer-а поменялась, а Pointer так и
> остался Integer-ом.

нет, интегер остался четырехбайтным и на х64

Ega23 (2013-01-21 17:26:00) [3]

> Насколько я помню справку, в Delphi арифметика применима
> к character pointers

За пятёрку не скажу, но в семёрке именно PByte указывал, вместо PAnsiChar

Игорь Шевченко (2013-01-21 17:19:00) [4]
Ega23 © (21.01.13 16:56) [11]

В соседней теме же сказано, что развитие закончилось :)

Насколько я помню справку, в Delphi арифметика применима к character pointers

Ega23 (2013-01-21 16:56:00) [5]

> в теме указано D7

А сразу PByte, не?

Игорь Шевченко (2013-01-21 15:18:00) [6]
icWasya © (21.01.13 09:43) [2]

в теме указано D7

Anatoly Podgoretsky (2013-01-21 14:36:00) [7]
Pointer types (wiki)

On 64-bit Windows, all pointer types are 8 bytes, twice the size on 32-bit Windows.

sniknik (2013-01-21 13:40:00) [8]
> + с некоторых пор Pointer стал не Integer ;-)
скорее разрядность Integer-а поменялась, а Pointer так и остался Integer-ом.

брат Птибурдукова (2013-01-21 12:53:00) [9]

> С некорых пор Char стал не однобайвый.
+ с некоторых пор Pointer стал не Integer ;-)

Сергей М. (2013-01-21 12:14:00) [10]

> если в моем случае размер буфера не может превышать 2-3
> кб

Ты об этом ничего не сказал. Равно как и не сказал может ли быть смещение отрицательным.
Но в любом случае ты ничего не "экономишь" на типе word, даже теряешь в отдельных случаях на лишней movsx-инструкции

Очень Злой (2013-01-21 11:48:00) [11]

> Сергей М. © (21.01.13 09:50) [3]

чем
...var offset: Integer...
лучше
...var offset:word...

если в моем случае размер буфера не может превышать 2-3 кб
?

Dimka Maslov (2013-01-21 10:03:00) [12]
Result := PInteger(Inc(PByte(Source), Offset))^
Inc(Offset, SizeOf(Integer));

Сергей М. (2013-01-21 09:50:00) [13]
function GetInteger(Source: Pointer; var offset: Integer): Integer; begin Result := Pinteger(Integer(Source) + Offset)^; Inc(Offset, SizeOf(Result)); end;

icWasya (2013-01-21 09:43:00) [14]
С некорых пор Char стал не однобайвый.

Игорь Шевченко (2013-01-21 00:43:00) [15]
PInteger(PChar(Buffer) + offset)^ - взять

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »