n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/rec_unit.pas

38 строк553 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

unit rec_unit;

interface

type TStudent = record
      name : string;
      age : integer;
     end;
	
     type NextNode2 = record
 		 info : real;
		 next : pointer;
		end;

     type NextNode = record
 		 info : real;
		 next : ^NextNode2;
		end;

     type Node = record
	     info : real;
	     next : ^NextNode;
	    end;

     TClassWithRecord = final class
      f : record k,l,m : integer; end;
      f2 : TStudent;
      f3 : TStudent;
      constructor create;
     end;

implementation

constructor TClassWithRecord.create;
begin
end;

end.