paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:39:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix "override" for GetFullText

Browse Source
This commit is contained in:
Martin 2024-07-23 14:20:47 +02:00
parent 7352ac6ad6
commit bafbb1e6fa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fppascalparser.pas
View File

@ -229,7 +229,7 @@ type
function DebugDump(AIndent: String; AWithResults: Boolean): String; override;
public
destructor Destroy; override;
function GetFullText(AMaxLen: Integer=0): String; virtual; // including children
function GetFullText(AMaxLen: Integer=0): String; override; // including children
function Add(APart: TFpPascalExpressionPart): Integer;
function IndexOf(APart: TFpPascalExpressionPart): Integer;
procedure Clear;