Class constants

From Free Pascal wiki
Jump to: navigation, search

FP supports typed class constants, if the compiler-switch

{$static on}

is set. There are no untyped class constants.

	type
		TCars = class(TVehicles)
			private
			public
				wheelcount: integer: static;
		end;
 
	begin
		TCars.wheelcount := 4;
		(* further assignments are forbidden *)
	end.

Weblinks