mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
21 lines
256 B
ObjectPascal
21 lines
256 B
ObjectPascal
{$mode objfpc}
|
|
program Project1;
|
|
type
|
|
generic TFoo<T> = class
|
|
const
|
|
Size = SizeOf(T);
|
|
public
|
|
function X: Integer;
|
|
end;
|
|
|
|
{ TFoo }
|
|
|
|
function TFoo.X: Integer;
|
|
begin
|
|
//Result := 100 div SizeOf(T);
|
|
Result := 100 div Size;
|
|
end;
|
|
|
|
begin
|
|
end.
|