Динамическое поле в record

[ДралсяСошибками]

Приветствую Вас, повелители двоичного 0 и 1!
Есть запись:

TMyRecord = record
  a: Array of Char;
end;
 
var
  MyRecord: TMyRecord;
...
SetLength(MyRecord.a, 1);
MyRecord.a[0] := 'x';
Send(Socket, MyRecord, SizeOf(MyRecord), 0);

В итоге по сети передаётся указатель на массив
Понимаю что у записи фиксированная длина, но мне хотелось бы передавать данные именно так, возможно ли впихнуть динамический массив в запись?

[Stilet]

Send(Socket, MyRecord.a[0], Length(MyRecord.a), 0);

не?

[ДралсяСошибками]

Неа, так больше 4-х байт не впихнуть, я же не создаю динамический массив чтобы отправить 4 байта

[Stilet]

так больше 4-х байт не впихнуть

Ты пробовал на практике именно так как я написал?

[ДралсяСошибками]

SetLength(MyRecord.a, 5);
  MyRecord.a[0] := '1';
  MyRecord.a[1] := '2';
  MyRecord.a[2] := '3';
  MyRecord.a[3] := '4';
  MyRecord.a[4] := '5';
  Send(Socket, MyRecord.a[0], SizeOf(MyRecord.a), 0);

По сетке передаст: 1234

......
Упс, Length вместо SizeOf даёт иной результат, странно( Спасибо)))

[ДралсяСошибками]

А если изменить запись:

TMyRecord = record
    a: Array of Char;
    b: Integer;
  end;

Возможно ли корректно передать? Так как естественно я создаю запись не для одного поля(

[3D Hunter]

а как вы будете принимать,подумали?и осторожнее с символьным типом,в последних версиях делфи это двухбайтовая величина.передавайте лучше данные типом ansistring:

Send(Socket,length(str),4,0);
Send(Socket,pointer(str)^,length(str),0);

[Stilet]

Length вместо SizeOf даёт иной результат

Еще бы )
Это инструкция вычисления длины строки а не размера указателя на нее