mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
31 lines
303 B
ObjectPascal
31 lines
303 B
ObjectPascal
unit ugeneric4;
|
|
|
|
interface
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
generic TList<_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.
|