paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add RangeIndexError (delphi compatible)

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-08-14 15:14:11 +02:00
parent 081af9a892
commit 0533acdc27
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/objpas/sysutils/sysutilh.inc
View File

@ -264,6 +264,7 @@ type
procedure ListIndexError(aIndex,aMax: Integer; aObj: TObject); procedure ListIndexError(aIndex,aMax: Integer; aObj: TObject);
function ListIndexErrorMsg(aIndex, aMaxIndex: SizeInt; const aListObjName: string): string; overload; function ListIndexErrorMsg(aIndex, aMaxIndex: SizeInt; const aListObjName: string): string; overload;
function ListIndexErrorMsg(aIndex, aMaxIndex: SizeInt; aListObj: TObject): string; overload; function ListIndexErrorMsg(aIndex, aMaxIndex: SizeInt; aListObj: TObject): string; overload;
procedure RangeIndexError(aIndex, aMaxIndex: SizeInt; aListObj: TObject);
Type Type
TBeepHandler = Procedure; TBeepHandler = Procedure;

6
rtl/objpas/sysutils/sysutils.inc
View File

@ -531,6 +531,12 @@ end;
{$pop} //{$S-} for Error handling functions {$pop} //{$S-} for Error handling functions
procedure RangeIndexError(aIndex, aMaxIndex: SizeInt; aListObj: TObject);
begin
raise ERangeError.Create(ListIndexErrorMsg(aIndex,aMaxIndex,aListObj));
end;
Procedure InitExceptions; Procedure InitExceptions;
{ {
Must install uncaught exception handler (ExceptProc) Must install uncaught exception handler (ExceptProc)