Source position: flcStrings.pas line 666
procedure StrTrimRightInPlaceA(
var S: AnsiString;
const C: ByteCharSet = csWhiteSpace
);