[Akunin]

Добрый вечер.
Ситуация:

Код:

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 не передаются в массив ...