]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ 可以采用下面的方法，但是这是极不安全的。

type

 TA=record

   i:integer;

   b:integer;

 end;

type

 TB=record

   i:integer;

   b:byte;

 end;

procedure TForm1.Button1Click(Sender: TObject);

var

 pa,pb:^byte;

 a:ta;

 b:tb;

 i:integer;

begin

 a.i:=100;

 a.b:=200;

 pa:=@a;

 pb:=@b;

 for i:=1 to sizeof(b) do

 begin

   pb^:=pa^;

   inc(pb);

   inc(pa);

 end;

 showmessage(inttostr(b.i)+'        '+inttostr(b.b));

end;