Well, not long ago I also wrote similar wrapper, but for FormatSettings members, adapting code to compile on D2006 and XE2
{$REGION 'Utility functions to mask different Delphi versions'} function GetRtlListSeparator: Char; inline; begin {$IF RTLVersion >= 23} Result := FormatSettings.ListSeparator; {$ELSE} Result := ListSeparator; {$IFEND} end; {$ENDREGION}
Well, not long ago I also wrote similar wrapper, but for FormatSettings members, adapting code to compile on D2006 and XE2
ReplyDelete{$REGION 'Utility functions to mask different Delphi versions'}
function GetRtlListSeparator: Char; inline;
begin
{$IF RTLVersion >= 23}
Result := FormatSettings.ListSeparator;
{$ELSE}
Result := ListSeparator;
{$IFEND}
end;
{$ENDREGION}