home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / Chip_2004-02_cd1.bin / zkuste / konfig / download / msic / Help / Int / MiTeC_StrUtils.int < prev    next >
Text File  |  2003-10-10  |  4KB  |  88 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {             MiTeC String Routines                     }
  4. {           version 1.0 for Delphi 5,6                  }
  5. {                                                       }
  6. {       Copyright ⌐ 1997,2002 Michal Mutl               }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. {$INCLUDE MITEC_DEF.INC}
  11.  
  12. unit MiTeC_StrUtils;
  13.  
  14. interface
  15.  
  16. uses {$IFDEF D6PLUS} Variants, {$ENDIF} SysUtils, Classes;
  17.  
  18. type
  19.   CharSet = set of Char;
  20.  
  21. function GetStrFromBuf(var Buffer: PChar): string; overload;
  22. function GetStrFromBuf(var Buffer: array of Byte): string; overload;
  23. function TrimAll(ASource: string): string;
  24. function BoolToStr(AValue, AVerbose: Boolean): string;
  25. function StrToBool(ASource: string): Boolean;
  26. procedure AddWord(var ADest :string; const AWord,ADelimiter: string);
  27. function GetDelimitedText(AList: TStrings; ADelimiter: string): string;
  28. procedure SetDelimitedText(ASource: string; ADelimiter: string; var AList: TStringList);
  29. function FitStr(const ASource, AEllipsis :string; ALength :integer) :string;
  30. function CenterStr(const ASource: string; ALength :integer; AFillChar: Char = #32) :string;
  31. function LeftPad(const ASource: string; ALength :integer; AFillChar: Char = #32) :string;
  32. function RightPad(const ASource: string; ALength :Integer; AFillChar: Char = #32) :string;
  33. function GetToken(s, adelimiter :string; index :integer) :string;
  34. procedure SetToken(adelimiter, newvalue :string; index :integer; var s :string);
  35. function GetTokenCount(s, adelimiter :string) :integer;
  36. function ExtractWord(N: Byte; S: String; WordDelims: CharSet): string;
  37. function TestByMask(const S, Mask: string; MaskChar: Char): Boolean;
  38.  
  39. function IsValidNumber(S: string; var V: extended): boolean;
  40. function IsValidDateTime(const S: string; var D: TDateTime): Boolean;
  41. function DequoteStr(Source: string; Quote: Char = '"'): string;
  42. function EncodeBase (I: Int64; Base: Byte): string;
  43.  
  44. function ListValue(AList: TStrings; AName: string; ASep: string = '='): string;
  45. function NameExists(AList: TStrings; AName: string; ASep: string = '='): integer;
  46. function GetValueFromStr(ASource: string; ASep: string = '='): string;
  47. function GetNameFromStr(ASource: string; ASep: string = '='): string;
  48. function ScanList(AText: string; AList: TStrings): Integer;
  49. procedure AddNameValue(AList: TStrings; AName,AValue: string; ASep: string = '=');
  50.  
  51. function FormatTimer(ATime: Comp): string;
  52.  
  53. function IsEmptyString(Source: string): Boolean;
  54.  
  55. function NormalizeDate(Source: string): string;
  56. function NormalizeNumber(Source: string): string; overload;
  57. function NormalizeNumberEx(Source: string): string; overload;
  58. function NormalizeNumberEx(Source: integer): string; overload;
  59. function NormalizeNumber(Source: Double; APrec: Byte = 2): string; overload;
  60.  
  61. function QuoteStr(Source: string): string;
  62. function QuoteTrimStr(Source: string): string;
  63. function QuoteTrimStrEx(Source: string): string;
  64.  
  65. function CustomSort(Value1,Value2: Variant): Integer;
  66.  
  67. function PosRev(Substring: string; Source: string): integer;
  68.  
  69. procedure SplitVersion(ASource: string; var Major, Minor: cardinal);
  70.  
  71. function TrimWideString(Source: WideString): WideString;
  72.  
  73. {$IFNDEF D6PLUS}
  74. function ReverseString(const AText: string): string;
  75. {$ENDIF}
  76.  
  77. const
  78.   BooleanEn: array[Boolean] of string = ('No','Yes');
  79.   BooleanCz: array[Boolean] of string = ('Ne','Ano');
  80.  
  81. resourcestring
  82.   rsTrue = 'True';
  83.   rsFalse = 'False';
  84.  
  85.  
  86. implementation
  87.  
  88.