fork(3) download
copy 
  1. {$mode objfpc}
  2. program Beltar1;
  3.  
  4. type
  5.     TMyObject = class
  6.     s: String;
  7. end;
  8.  
  9. TRec = record
  10.     a: Int32;
  11.     s: String;
  12.     o: TMyObject;
  13. end;
  14.  
  15. var 
  16.     r1, r2: TRec;
  17. begin
  18.     r1.s := 'S1';
  19.     r1.o := TMyObject.Create;
  20.     r1.o.s := 'OS1';
  21.     r2 := r1;
  22.     r1.s := 'S2';
  23.     r1.o.s := 'OS2';
  24.     Writeln('r1: ', r1.s, ' ', r1.o.s);
  25.     Writeln('r2: ', r2.s, ' ', r2.o.s);
  26. end.
Success #stdin #stdout 0s 368KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
r1: S2 OS2
r2: S1 OS2
https://ideone.com/yj9pmB
language:
Pascal (fpc 3.0.4)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!