Consider the following code:
unit Unit2; interface uses Dialogs; type TNamedObj = class private FObjName: string; public constructor Create(const AName: string); procedure ShowName1; class procedure ShowName2(Obj: TNamedObj); static; end; implementation constructor ...
More...