mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-14 18:01:27 +01:00
31 lines
303 B
ObjectPascal
31 lines
303 B
ObjectPascal
unit ugeneric4;
|
|
|
|
interface
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TList=generic(_T) class(TObject)
|
|
data : _T;
|
|
procedure Fill;
|
|
end;
|
|
|
|
var
|
|
globaldata : string;
|
|
|
|
implementation
|
|
|
|
procedure LocalFill;
|
|
begin
|
|
globaldata:='Unit';
|
|
end;
|
|
|
|
|
|
procedure TList.Fill;
|
|
begin
|
|
LocalFill;
|
|
data:=globaldata;
|
|
end;
|
|
|
|
end.
|