mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 18:08:17 +02:00
25 lines
404 B
ObjectPascal
25 lines
404 B
ObjectPascal
{ %norun }
|
|
unit tw25769a;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
type
|
|
TDbgSymbolValue = class(TObject)
|
|
protected
|
|
function GetMemberCountEx(AIndex: array of Integer): Integer;
|
|
public
|
|
property MemberCountEx[AIndex: array of Integer]: Integer read GetMemberCountEx;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
function TDbgSymbolValue.GetMemberCountEx(AIndex: array of Integer): Integer;
|
|
begin
|
|
result:=0;
|
|
end;
|
|
|
|
end.
|