Variant To TBytes

[compute]

var
 Form2: TForm2;
 I: Integer;
 S: AnsiString;
 W: Word;

 V: Variant;
 P: PByte;
 Arr: TBytes;

 VData: PVarData;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
 S := 'HELLO WORLD';
 I := 1453; // [5, 173, 0, 0]
 W := 31;

 V := I;

 VData := @TVarData(V);

 if VData^.VType = varInteger then
 begin
   SetLength(Arr, SizeOf(Integer));
   P := PByte(@VData^.VInteger);
   Arr[0] := P^;

   Inc(P);
   Arr[1] := P^;

   Inc(P);
   Arr[2] := P^;

   Inc(P);
   Arr[3] := P^;
 end;

 if VData^.VType = varWord then
 begin
   SetLength(Arr, SizeOf(Word));

   P := PByte(@VData^.VWord);
   Arr[0] := P^;

   Inc(P);
   Arr[1] := P^;
 end;

 if VData^.VType = varString then
 begin
   P := PByte(@VData^.VString);
   //??????
 end;

end;