mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
c077adf499
defcmp.pas, objectdef_is_related: * use "equal_defs" instead of "=", as the former also handles equivalence of specializations + added test git-svn-id: trunk@25848 -
30 lines
423 B
ObjectPascal
30 lines
423 B
ObjectPascal
unit uw25132;
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
interface
|
|
|
|
type
|
|
TIterator<TElement> = class(TObject)
|
|
public
|
|
function GetValue(): Integer; virtual; abstract;
|
|
end;
|
|
|
|
TCollectionIterator = class(TIterator<TObject>)
|
|
public
|
|
function GetValue(): Integer; override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ TCollectionIterator }
|
|
|
|
function TCollectionIterator.GetValue(): Integer;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
end.
|