mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2026-01-21 16:41:29 +01:00
45 lines
665 B
ObjectPascal
45 lines
665 B
ObjectPascal
unit fdt_nestedclasses;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
type
|
|
TBaseClass = class
|
|
public type
|
|
TBaseSubClass = class
|
|
procedure DoSomething; virtual;
|
|
end;
|
|
end;
|
|
|
|
TCustomClass = class(TBaseClass)
|
|
public type
|
|
TCustomSubClass = class(TBaseSubClass{declaration:fdt_nestedclasses.TBaseClass.TBaseSubClass})
|
|
procedure DoSomething; override;
|
|
end;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TCustomClass.TCustomSubClass }
|
|
|
|
procedure TCustomClass.TCustomSubClass.DoSomething;
|
|
begin
|
|
//put the cursor here and hit Ctrl+Space
|
|
|
|
end;
|
|
|
|
{ TBaseClass.TBaseSubClass }
|
|
|
|
procedure TBaseClass.TBaseSubClass.DoSomething;
|
|
begin
|
|
|
|
end;
|
|
|
|
|
|
end.
|
|
|