Untyped parameters

← →
TCrash (2003-06-09 19:55) [0]

Подскажите, плс, Каким образом передаются в процедуру нетипизированные параметры.
Например, имеется :

procedure aaaa(const x);
var p: pointer;
begin
........
getmem(p,Sizeof(x));
p^:=x; // Здесь ругается на несовместимость типов
........
end;

Что здесь неправильно?

← →
clickmaker (2003-06-09 19:57) [1]

p:=@x;

← →
clickmaker (2003-06-09 19:59) [2]

Сорри, не заметил getmem... Тогда так
CopyMemory(p, @x, SizeOf(x));

← →
TCrash (2003-06-09 20:01) [3]

Простите за тупой вопрос, но как такая запись трактуется ?

ЗЫ: мне нужно по заданному указателю поместить передаваемые данные. Никак не присвоить указателю адрес данных.

← →
clickmaker (2003-06-09 20:04) [4]

p^ можно указывать только в правой части, например:

procedure aaaa(var x: integer);
var p: pointer;
begin
CopyMemory(p, @SomeData, sizeof(integer));
x := integer(p^);
end;

← →
TCrash (2003-06-09 20:08) [5]

← →
TCrash (2003-06-09 20:11) [6]

кстати, не могу пока проверить на практике, а как определиться SizeOf(X), если размер Х заранее неизвестен.

Untyped parameters Найти похожие ветки