mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 01:08:07 +02:00
26 lines
363 B
ObjectPascal
26 lines
363 B
ObjectPascal
unit uw40784a;
|
|
|
|
{$mode Delphi}
|
|
|
|
interface
|
|
|
|
type
|
|
|
|
{ TGsAbstractObjectList }
|
|
|
|
TGsAbstractObjectList<T: TObject> = class
|
|
protected
|
|
function GetTypeTagFromRow(ARow: TObject): Integer; virtual;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
{ TGsAbstractObjectList<T> }
|
|
|
|
function TGsAbstractObjectList<T>.GetTypeTagFromRow(ARow: TObject): Integer;
|
|
begin
|
|
Result := 0;
|
|
end;
|
|
|
|
end. |