TWideStringManager

type TWideStringManager = record

  Wide2AnsiMoveProc: procedure(

Convert an AnsiString to a WideString

  source: PWideChar;

  var dest: ansistring;

  len: SizeInt

);

  Ansi2WideMoveProc: procedure(

Convert a WideString to an AnsiString

  source: PChar;

  var dest: widestring;

  len: SizeInt

);

  UpperWideStringProc: function(

Convert a widestring to all-uppercase

  const S: WideString

):WideString;

  LowerWideStringProc: function(

Convert a widestring to all-lowercase

  const S: WideString

):WideString;

  CompareWideStringProc: function(

Compare 2 widestrings, case-sensitive

  const s1: WideString;

  const s2: WideString

):PtrInt;

  CompareTextWideStringProc: function(

Compare 2 widestrings, case-insensitive

  const s1: WideString;

  const s2: WideString

):PtrInt;

  CharLengthPCharProc: function(

Return the length, in characters, of a widestring

  const Str: PChar

):PtrInt;

  UpperAnsiStringProc: function(

Convert an ansistring to all-uppercase

  const s: ansistring

):ansistring;

  LowerAnsiStringProc: function(

Convert an ansistring to all-lowercase

  const s: ansistring

):ansistring;

  CompareStrAnsiStringProc: function(

Compare 2 ansistrings, case-sensitive

  const S1: ansistring;

  const S2: ansistring

):PtrInt;

  CompareTextAnsiStringProc: function(

Compare 2 ansistrings, case-insensitive

  const S1: ansistring;

  const S2: ansistring

):PtrInt;

  StrCompAnsiStringProc: function(

Compare 2 null-terminated ansistrings, case-sensitive

  S1: PChar;

  S2: PChar

):PtrInt;

  StrICompAnsiStringProc: function(

Compare 2 null-terminated ansistrings, case-insensitive

  S1: PChar;

  S2: PChar

):PtrInt;

  StrLCompAnsiStringProc: function(

Compare 2 null-terminated ansistrings, case-sensitive, for a maximum length

  S1: PChar;

  S2: PChar;

  MaxLen: PtrUInt

):PtrInt;

  StrLICompAnsiStringProc: function(

Compare 2 null-terminated ansistrings, case-insensitive, for a maximum length

  S1: PChar;

  S2: PChar;

  MaxLen: PtrUInt

):PtrInt;

  StrLowerAnsiStringProc: function(

Convert an ansistring to all-lowercase

  Str: PChar

):PChar;

  StrUpperAnsiStringProc: function(

Convert an ansistring to all-uppercase

  Str: PChar

):PChar;

end;