Código Delphi [-] type TR = record UNO: integer; DOS: CHAR; end; procedure TForm1.Button1Click(Sender: TObject); var V: TR; begin V.UNO:= 1; Edit1.Text:= IntToStr(PInteger(@V)^); end;
type TR = record UNO: integer; DOS: CHAR; end; procedure TForm1.Button1Click(Sender: TObject); var V: TR; begin V.UNO:= 1; Edit1.Text:= IntToStr(PInteger(@V)^); end;