Добрый вечер.
Ситуация:
Код:
type
PMytype:^Mytype;
Mytype: record
data: array [1..64000] of byte;
end;
..................................................
procedure test;
var
stroka:string;
begin
stroka:='1111';
func(@stroka)
..................................................
end;
function func(buf:PMytype);
var
st:string;
i:integer;
begin
st:='';
for i to 50 do st:=st+chr(buf^.Data);
..................................................
end;
Админ: Пользуемся тегами для оформления кода.
Орды байтов строки @stroka не передаются в массив ...