Repository URL to install this package:
|
Version:
1.6 ▾
|
lazarus
/
usr
/
share
/
lazarus
/
1.6
/
components
/
codetools
/
examples
/
scanexamples
/
abstractclass1.pas
|
|---|
unit AbstractClass1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
TAbstractClass = class(TStrings)
public
procedure Increase; virtual; abstract;
procedure Decrease; virtual; abstract;
end;
TMyClass = class(TAbstractClass)
end;
implementation
end.