Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type TInterfaceMethod = class
- public
- destructor Destroy; virtual; abstract;
- procedure Calculate; virtual; abstract;
- procedure PrepareForWork; virtual; abstract;
- end;
- type ConcreteMethod = class(TInterfaceMethod)
- private
- matrix: TMinMatrix;
- public
- constructor Create(var matr: TMinMatrix);
- procedure Calculate; override;
- procedure PrepareForWork; override;
- destructor Destroy;
- end;
- type
- TInterfaceMethod = class abstract
- public
- destructor Destroy; override; abstract;
- procedure Calculate; virtual; abstract;
- procedure PrepareForWork; virtual; abstract;
- end;
- TConcreteMethod = class(TInterfaceMethod)
- private
- matrix: TMinMatrix;
- public
- constructor Create(var matr: TMinMatrix);
- procedure Calculate; override;
- procedure PrepareForWork; override;
- destructor Destroy; override;
- end;
Add Comment
Please, Sign In to add comment