Получение адреса параметра функции

← →
Vladimir88 (2005-10-14 16:24) [0]

$4300..$4700:Result:=GetLenCot100(Adress,numb_ti100_1,Cot100_1);

function TConverter.GetLenCot100(Adress: Word; NumbTi100:Byte; const Cot100: TCot100): Word;
var
i,j:Word;
begin
i:={ $4300}Word(Pointer(@Cot100));

адрес @Cot100_1 и @Cot100 получаются разные, как мне в функции получить правильный адрес на параметр, передаваемый в функцию.

← →
Amoeba © (2005-10-14 16:31) [1]

А для чего это нужно?

← →
Vladimir88 (2005-10-14 16:36) [2]

У меня есть структура типа запись, мне надо выдрать кусок памяти где содержится данное поле, и несколько следующих, в общем очень долго объяснять зачем, в общем для программирования устройств

← →
Amoeba © (2005-10-14 16:44) [3]

> адрес @Cot100_1 и @Cot100 получаются разные

А что, они разве обязаны быть одинаковыми?

← →
han_malign © (2005-10-14 16:51) [4]

> адрес @Cot100_1 и @Cot100 получаются разные

- TCot100 - перечислимый небось(cardinal) - дык они всегда по значению передаются(Delphi же не должен ругаться на GetLenCot100(Adress,numb_ti100_1,17);)...
убери : TCot100 - и будет тебе щастье(нетипизированная константа передается по адресу)

З.Ы. А с чего ты взял, что адрес это Word?

← →
Vladimir88 (2005-10-14 16:56) [5]

TCot100 это массив

← →
Digitman © (2005-10-14 17:00) [6]

бред какой-то ...

Узнавай адрес первого элемента Cot100[0]. А адрес самого массива - это бессмыслица.

И наверняка можно вообще без адресов обойтись, если написать вместо const - var

← →
Vladimir88 (2005-10-14 17:09) [8]

Без адресов не обойтись, у меня как раз такая ситуация что мне нужны не значения массива, а его адресс, Cot100[0] выдаёт то же самое

> Vladimir88 (14.10.05 17:09) [8]

какого ж .. тогда ты передаешь параметр как const ?

ну и передавай тогда его как var или out !

тогда адрес меторазмещения в памяти фактически переданного параметра (какого бы типа он ни был) в теле вызванной п/программы м.б. получен в том самом виде : @имя_формального_параметра_п/программы

Получение адреса параметра функции Найти похожие ветки