[icWasya]

Сообщение от Akunin

Добрый вечер.
Ситуация: Орды байтов строки @stroka не передаются в массив ...

Код:

type
  PMytype=^Mytype;
  Mytype= record
    data:  array [0..64000] of byte;
 end;
function func(buf:PMytype):Boolean;forward;


procedure test;
var
 stroka:string;
begin
 stroka:='1111';
 func(Pointer(stroka))
end;


function func(buf:PMytype):Boolean;
var
 st:string;
 i:integer;
begin
st:='';
 for i :=0 to 50 do begin 
   if buf.Data[i]=0 then break;
   st:=st+chr(buf.Data[i]);
 end;
end;