как выделить память для указателя (pointer), и сюда же, записать : integer, потом через 4 байта, boolean?

[bigxman]

как выделить память для указателя (pointer), и сюда же, записать : integer, потом через 4 байта, boolean, и через один байт стринг????

[BOBAH13]

var p: Pointer;
i: Integer;
b: Boolean;
s: String;
begin
  i := 1;
  b := True;
  s := 'Hello World!';
  GetMem(p, SizeOf(Integer) + SizeOf(Boolean) + Length(s));
  Move(p^, i, SizeOf(Integer));
  Move(Pointer(Integer(p) + SizeOf(Integer))^, b, SizeOf(Boolean));
  Move(Pointer(Integer(p) + SizeOf(Integer) + SizeOf(Boolean))^, Pointer(s)^, Length(s));
  // do something
  FreeMem(p);
end;

или

var p: PCHAR;
i: Integer;
b: Boolean;
s: String;
begin
  i := 1;
  b := True;
  s := 'Hello World!';
  GetMem(p, SizeOf(Integer) + SizeOf(Boolean) + Length(s));
  Move(p^, i, SizeOf(Integer));
  inc(p, SizeOf(Integer));
  Move(p^, b, SizeOf(Boolean));
  inc(p, SizeOf(Boolean));
  Move(p^, Pointer(s)^, Length(s));
  // do something
  FreeMem(p);
end;