mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-24 14:09:10 +02:00
338873d7a7
U packages/fcl-stl/src/gset.pp --- Recording mergeinfo for merge of r39785 into '.': U . --- Merging r39786 into '.': A tests/tbs/tb0651.pp U compiler/symdef.pas --- Recording mergeinfo for merge of r39786 into '.': G . --- Merging r39787 into '.': U compiler/pexpr.pas A tests/webtbs/uw34287a.pp A tests/webtbs/tw34287.pp A tests/webtbs/uw34287b.pp --- Recording mergeinfo for merge of r39787 into '.': G . --- Merging r39788 into '.': U compiler/nbas.pas --- Recording mergeinfo for merge of r39788 into '.': G . --- Merging r39812 into '.': G compiler/pexpr.pas --- Recording mergeinfo for merge of r39812 into '.': G . # revisions: 39785,39786,39787,39788,39812 git-svn-id: branches/fixes_3_2@39835 -
38 lines
526 B
ObjectPascal
38 lines
526 B
ObjectPascal
unit uw34287a;
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE DELPHI}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes;
|
|
|
|
type
|
|
TBase = class(TComponent)
|
|
public
|
|
function Bar<T: TComponent>(const P1: string; out P2: T): Boolean;
|
|
end;
|
|
|
|
TFoo = class(TBase)
|
|
public
|
|
function Bar(const P1: string): Boolean;
|
|
end;
|
|
|
|
implementation
|
|
|
|
function TBase.Bar<T>(const P1: string; out P2: T): Boolean;
|
|
begin
|
|
Result := False;
|
|
end;
|
|
|
|
function TFoo.Bar(const P1: string): Boolean;
|
|
var
|
|
C: TComponent;
|
|
begin
|
|
Result := inherited Bar<TComponent>(P1, C);
|
|
end;
|
|
|
|
end.
|