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

* Added generic IfThen, as proposed by Thaddy de Koning, bug id #34012

Browse Source 
git-svn-id: trunk@39521 -
This commit is contained in:
michael 2018-07-29 09:35:54 +00:00
parent d5601e3631
commit 1e3f44965f
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -266,6 +266,8 @@ type
procedure AddTerminateProc(TermProc: TTerminateProc); procedure AddTerminateProc(TermProc: TTerminateProc);
function CallTerminateProcs: Boolean; function CallTerminateProcs: Boolean;
generic function IfThen<T>(val:boolean;const iftrue:T; const iffalse:T) :T; inline; overload;
Var Var
OnShowException : Procedure (Msg : ShortString); OnShowException : Procedure (Msg : ShortString);

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

@ -801,3 +801,14 @@ begin
result:=ExecuteProcess(ToSingleByteFileSystemEncodedFileName(Path),ComLineA); result:=ExecuteProcess(ToSingleByteFileSystemEncodedFileName(Path),ComLineA);
end; end;
{$endif} {$endif}
// generic ifthen..
generic function IfThen<T>(val:boolean;const iftrue:T; const iffalse:T) :T; inline; overload;
begin
if val then
Result := ifTrue
else
Result:=ifFalse;
end;