v0.7 PSStrUtils

Warning

Esta ayuda es para la versión 0.7. Está obsoleta e incompleta.

CL.AddDelphiFunction('Function AnsiStartsText( const ASubText, AText : AnsiString) : Boolean');
 CL.AddDelphiFunction('Function AnsiEndsText( const ASubText, AText : AnsiString) : Boolean');
 CL.AddDelphiFunction('Function AnsiReplaceText( const AText, AFromText, AToText : AnsiString) : AnsiString');
 CL.AddDelphiFunction('Function AnsiMatchText( const AText : AnsiString; const AValues : array of AnsiString) : Boolean');
 CL.AddDelphiFunction('Function AnsiIndexText( const AText : AnsiString; const AValues : array of AnsiString) : Integer');
 CL.AddDelphiFunction('Function AnsiContainsStr( const AText, ASubText : AnsiString) : Boolean');
 CL.AddDelphiFunction('Function AnsiStartsStr( const ASubText, AText : AnsiString) : Boolean');
 CL.AddDelphiFunction('Function AnsiEndsStr( const ASubText, AText : AnsiString) : Boolean');
 CL.AddDelphiFunction('Function AnsiReplaceStr( const AText, AFromText, AToText : AnsiString) : AnsiString');
 CL.AddDelphiFunction('Function AnsiMatchStr( const AText : AnsiString; const AValues : array of AnsiString) : Boolean');
 CL.AddDelphiFunction('Function AnsiIndexStr( const AText : AnsiString; const AValues : array of AnsiString) : Integer');
 CL.AddDelphiFunction('Function DupeString( const AText : string; ACount : Integer) : string');
 CL.AddDelphiFunction('Function ReverseString( const AText : string) : string');
 CL.AddDelphiFunction('Function AnsiReverseString( const AText : AnsiString) : String');
 CL.AddDelphiFunction('Function StuffString( const AText : string; AStart, ALength : Cardinal; const ASubText : string) : string');
 CL.AddDelphiFunction('Function RandomFrom( const AValues : array of string) : string;');
 CL.AddDelphiFunction('Function IfThen( AValue : Boolean; const ATrue : string; AFalse : string) : string;');
 CL.AddDelphiFunction('Function LeftStr( const AText : String; const ACount : Integer) : String;');
 CL.AddDelphiFunction('Function RightStr( const AText : String; const ACount : Integer) : String;');
 CL.AddDelphiFunction('Function MidStr( const AText : String; const AStart, ACount : Integer) : String;');
 CL.AddDelphiFunction('Function LeftBStr( const AText : String; const AByteCount : Integer) : String');
 CL.AddDelphiFunction('Function RightBStr( const AText : String; const AByteCount : Integer) : String');
 CL.AddDelphiFunction('Function MidBStr( const AText : String; const AByteStart, AByteCount : Integer) : String');
 CL.AddDelphiFunction('Function AnsiLeftStr( const AText : String; const ACount : Integer) : String');
 CL.AddDelphiFunction('Function AnsiRightStr( const AText : String; const ACount : Integer) : String');
 CL.AddDelphiFunction('Function AnsiMidStr( const AText : String; const AStart, ACount : Integer) : String');
 CL.AddTypeS('TStringSearchOption', '( soDown, soMatchCase, soWholeWord )');
 CL.AddTypeS('TStringSearchOptions', 'set of TStringSearchOption');
 CL.AddDelphiFunction('Function SearchBuf( Buf : PChar; BufLen : Integer; SelStart, SelLength : Integer; SearchString : String; Options : TStringSearchOptions) : PChar');
 CL.AddDelphiFunction('Function PosEx( const SubStr, S : string; Offset : Cardinal) : Integer');
 CL.AddTypeS('TSoundexLength', 'Integer');
 CL.AddDelphiFunction('Function Soundex( const AText : string; ALength : TSoundexLength) : string');
 CL.AddTypeS('TSoundexIntLength', 'Integer');
 CL.AddDelphiFunction('Function SoundexInt( const AText : string; ALength : TSoundexIntLength) : Integer');
 CL.AddDelphiFunction('Function DecodeSoundexInt( AValue : Integer) : string');
 CL.AddDelphiFunction('Function SoundexWord( const AText : string) : Word');
 CL.AddDelphiFunction('Function DecodeSoundexWord( AValue : Word) : string');
 CL.AddDelphiFunction('Function SoundexSimilar( const AText, AOther : string; ALength : TSoundexLength) : Boolean');
 CL.AddDelphiFunction('Function SoundexCompare( const AText, AOther : string; ALength : TSoundexLength) : Integer');
 CL.AddDelphiFunction('Function SoundexProc( const AText, AOther : string) : Boolean');
 CL.AddDelphiFunction('Function PosEx(const SubStr, S: string; Offset: Cardinal): Integer;');

 CL.AddTypeS('TReplaceFlag', '( rfReplaceAll, rfIgnoreCase )');
 CL.AddTypeS('TReplaceFlags', 'set of TReplaceFlag');
 CL.AddDelphiFunction('Function StringsReplace(const S: string; OldPattern, NewPattern: array of string;  Flags: TReplaceFlags): string;');
 CL.AddDelphiFunction('Function StringReplace(const S, OldPattern, NewPattern: string;  Flags: TReplaceFlags): string;');

 CL.AddTypeS('TSysCharSet','Set of char');
 CL.AddDelphiFunction('Function IsEmptyStr(const S: string; const EmptyChars: TSysCharSet): Boolean;');
 CL.AddDelphiFunction('function DelSpace(const S: string): string;');
 CL.AddDelphiFunction('function DelChars(const S: string; aChr: Char): string;');
 CL.AddDelphiFunction('function DelSpace1(const S: string): string;');

 CL.AddDelphiFunction('Function Tab2Space(const S: string; Numb: Byte): string;');
 CL.AddDelphiFunction('Function NPos(const C: string; S: string; N: Integer): Integer;');
 CL.AddDelphiFunction('Function AddChar(C: Char; const S: string; N: Integer): string;');
 CL.AddDelphiFunction('Function AddCharR(C: Char; const S: string; N: Integer): string;');
 CL.AddDelphiFunction('Function PadLeft(const S: string; N: Integer): string;inline;');
 CL.AddDelphiFunction('Function PadRight(const S: string; N: Integer): string;inline;');
 CL.AddDelphiFunction('Function PadCenter(const S: string; Len: Integer): string;');
 CL.AddDelphiFunction('Function Copy2Symb(const S: string; Symb: Char): string;');
 CL.AddDelphiFunction('Function Copy2SymbDel(var S: string; Symb: Char): string;');
 CL.AddDelphiFunction('Function Copy2Space(const S: string): string;inline;');
 CL.AddDelphiFunction('Function Copy2SpaceDel(var S: string): string;inline;');
 CL.AddDelphiFunction('Function AnsiProperCase(const S: string; const WordDelims: TSysCharSet): string;');
 CL.AddDelphiFunction('Function WordCount(const S: string; const WordDelims: TSysCharSet): Integer;');
 CL.AddDelphiFunction('Function WordPosition(const N: Integer; const S: string; const WordDelims: TSysCharSet): Integer;');
 CL.AddDelphiFunction('Function ExtractWord(N: Integer; const S: string;  const WordDelims: TSysCharSet): string;inline;');
 CL.AddDelphiFunction('Function ExtractWordPos(N: Integer; const S: string; const WordDelims: TSysCharSet; var Pos: Integer): string;');
 CL.AddDelphiFunction('Function ExtractDelimited(N: Integer; const S: string;  const Delims: TSysCharSet): string;');
 CL.AddDelphiFunction('Function ExtractSubstr(const S: string; var Pos: Integer;  const Delims: TSysCharSet): string;');
 CL.AddDelphiFunction('Function IsWordPresent(const W, S: string; const WordDelims: TSysCharSet): Boolean;');
 CL.AddDelphiFunction('Function FindPart(const HelpWilds, InputStr: string): Integer;');
 CL.AddDelphiFunction('Function IsWild(InputStr, Wilds: string; IgnoreCase: Boolean): Boolean;');
 CL.AddDelphiFunction('Function XorString(const Key, Src: String): String;');
 CL.AddDelphiFunction('Function XorEncode(const Key, Source: string): string;');
 CL.AddDelphiFunction('Function XorDecode(const Key, Source: string): string;');
 CL.AddDelphiFunction('Procedure RemoveLeadingChars(VAR S : String; Const CSet:TSysCharset);');
 CL.AddDelphiFunction('Procedure RemoveTrailingChars(VAR S : String;Const CSet:TSysCharset);');
 CL.AddDelphiFunction('Procedure RemovePadChars(VAR S : String;Const CSet:TSysCharset);');
 CL.AddDelphiFunction('Function TrimLeftSet(const S: String;const CSet:TSysCharSet): String;');
 CL.AddDelphiFunction('Function TrimRightSet(const S: String;const CSet:TSysCharSet): String;');
 CL.AddDelphiFunction('Function TrimSet(const S: String;const CSet:TSysCharSet): String;');