Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw29546.pp
Size: Mime:
{ %NORUN }

program tw29546;

{$mode objfpc}

type
  TUtils = class sealed(TObject)
  public
    generic class function Iif<T>(ACondition: Boolean;
      const ATrueValue, AFalseValue: T): T; static;
  end;

  generic class function TUtils.Iif<T>(ACondition: Boolean;
    const ATrueValue, AFalseValue: T): T;
  begin
    if ACondition then
      Result := ATrueValue
    else
      Result := AFalseValue;
  end;

var
  S: string;
begin
  S := TUtils.specialize Iif<string>(False, 'YES', 'NO');
  S := TUtils.specialize Iif<string>(True, 'YES', 'NO');
end.