[Akunin]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

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

[M.A.D.M.A.N.]

первые 4 байта в массиве определяет количество элементов, вторые - адрес первой ячейки массива. вроде так.

[Alegun]

И ещё желательно функции местами поменять, а то из test не видно func

[icWasya]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

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;