Changeset 198 for trunk/Library/StringUtilsUnit.pas

Timestamp:

Jun 7, 2007, 8:53:05 PM (18 years ago)

Author:

RBRi

Message:

another update

File:

• trunk/Library/StringUtilsUnit.pas (modified) (6 diffs)

trunk/Library/StringUtilsUnit.pas

@@ -106 +106 @@
   Function LongWordToStr(const aLongWord: LongWord) : String;
 
-  Function BoolToStr(const aBoolean : boolean ): string;
+  Function BoolToStr(const aBoolean : Boolean ): String;
+
+  // Converts a hex string to a longint
+  // May be upper or lower case
+  // Does not allow a sign
+  // Is not forgiving as StrToInt: all characters
+  // must be valid hex chars.
+  Function HexStrToLongInt(const aString : String ): longint;
 
   // Returns aString enclosed in single quotes
@@ -118 +125 @@
   Procedure StrExtractStringsQuoted(Var aResult: TStrings; const aReceiver: String );
 
-
   // returns the position of aPart in aString
   // case insensitive
@@ -125 +131 @@
   // Finds the last position of aChar within aString. Returns zero if no match
   Function LastPosOfChar(const aChar: char; const aString: String): longint;
+
+
+  // Substitutes all occurences of given character with the replace char
+  Procedure SubstituteAllOccurencesOfChar(var aReceiver: String; const aSearchChar: Char; const aReplaceChar: Char );
 
 
@@ -668 +678 @@
 
 
+// Hex conversion: sheer extravagance. Conversion from
+// a hex digit char to int is done by creating a lookup table
+// in advance.
+var
+  MapHexDigitToInt: array[Chr(0) .. Chr(255)] of longint;
+
+  procedure InitHexDigitMap;
+  var
+    tmpChar : char;
+    tmpIntValue : longint;
+  begin
+    for tmpChar := Chr(0) to Chr(255) do
+    begin
+      tmpIntValue := -1;
+      if ( tmpChar >= '0') and (tmpChar <= '9') then
+      begin
+        tmpIntValue := Ord(tmpChar) - Ord('0');
+      end;
+
+      if ( Upcase(tmpChar) >= 'A') and (Upcase(tmpChar) <= 'F') then
+      begin
+        tmpIntValue := 10 + Ord(Upcase(tmpChar)) - Ord('A');
+      end;
+
+      MapHexDigitToInt[tmpChar] := tmpIntValue;
+    end;
+  end;
+
+
+  Function HexDigitToInt(const aString : String; const aPosition : integer) : longint;
+  begin
+    Result := MapHexDigitToInt[aString[aPosition]];
+    if Result = -1 then
+    begin
+      raise EConvertError.Create('Invalid hex char: ''' + aString[aPosition] + ''' in hex string ''' + aString +'''.' );
+    end
+  end;
+
+
+  Function HexStrToLongInt(const aString : String) : longint;
+  var
+    i: integer;
+  begin
+    if Length(aString) = 0 then
+    begin
+      raise EConvertError.Create('No chars in hex string');
+    end;
+
+    Result := 0;
+    for i:= 1 to Length(aString) do
+    begin
+      Result := Result shl 4;
+      inc(Result, HexDigitToInt(aString, i));
+    end;
+  end;
+
   Function StrInSingleQuotes(const aString : String) : String;
   begin
@@ -939 +1005 @@
   end;
 
+
+  Procedure SubstituteAllOccurencesOfChar(var aReceiver: String; const aSearchChar: Char; const aReplaceChar: Char );
+  var
+    i : longint;
+  begin
+    for i :=1 to length(aReceiver) do
+    begin
+      if aReceiver[i] = aSearchChar then
+      begin
+        aReceiver[i] := aReplaceChar;
+      end
+    end
+  end;
+
+
   // --------------------
   // ---- AnsiString ----
@@ -1096 +1177 @@
   end;
 
-END.
+
+Initialization
+  InitHexDigitMap;
+End.