function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean; overload; inline; deprecated 'Use TCharHelper functionality';
Jetzt nochmal mit Drumherum aus dem aktuellen Seattle:
Delphi-Quellcode:
{$IFNDEF NEXTGEN}
function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload; inline;
function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload; inline;
{$ELSE}
function CharInSet(C: Byte; const CharSet: TSysCharSet): Boolean; overload; inline; deprecated 'Use TCharHelper functionality';
function CharInSet(C: Char; const CharSet: TSysCharSet): Boolean; overload; inline; deprecated 'Use TCharHelper functionality';
{$ENDIF}
Bei genauem Hinsehen wird man entdecken, daß CharInSet lediglich für den NextGen-Compiler als deprecated markiert ist.