Procedure A (Var Data);
Begin
End;
и вызвать так:
VarТо как к этой бестиповой переменной обращаться в процедуре? Что там будет храниться? Само значение переменной, или адрес?
I: Integer;
Begin
A (I)
End.
Procedure A (Var Data);
Begin
End;
VarТо как к этой бестиповой переменной обращаться в процедуре? Что там будет храниться? Само значение переменной, или адрес?
I: Integer;
Begin
A (I)
End.
procedure A(var data);
var MyData: integer absolute Data; { <--- }
begin
writeln(MyData);
MyData := 10;
end;
var
i: integer;
begin
i := 1;
A(i);
writeln(i);
end.
procedure A(var data);
type
pT = ^T;
T = integer;
var
p: pT;
begin
writeln(pT(@data)^);
p := pT(@data);
p^ := 15;
end;
var
i: integer;
begin
i := 1;
A(i);
writeln(i);
end.
! | 1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... Исправляем. |