Changeset 139 for trunk/NewView/StringUtilsUnit.pas

Timestamp:

Apr 30, 2007, 9:00:32 PM (18 years ago)

Author:

RBRi

Message:

more refactoring

File:

• trunk/NewView/StringUtilsUnit.pas (modified) (12 diffs)

trunk/NewView/StringUtilsUnit.pas

@@ -18 +18 @@
   StrLF = CharLF;
   StrCRLF = StrCR + StrLF;
-  StrSingleQuote = '''';
-  StrDoubleQuote = '"';
+  StrSingleQuote = CharSingleQuote;
+  StrDoubleQuote = CharDoubleQuote;
 
 
@@ -37 +37 @@
   end;
 
-  // prefices all occurences of one of the chars in aStringWithChars with anEscape char
+  // prefixes all occurences of one of the chars in aStringWithChars with anEscape char
   // if the escapeChar itself is found, then it is doubled
   Function StrEscapeAllCharsBy(const aReceiver: String; const aSetOfChars: TSetOfChars; const anEscapeChar: char): String;
@@ -94 +94 @@
   Function StrEndsWithIgnoringCase(const aReceiver: String; const anEndString: String): Boolean;
 
+  // Returns true if aReceiver is only spaces (or empty)
+  Function StrIsEmptyOrSpaces(const aReceiver: String) : Boolean;
+
   // returns true if the Strings are the same
   // this is case INsensitive
@@ -105 +108 @@
   Function BoolToStr(const aBoolean : boolean ): string;
 
+  // Returns aString enclosed in single quotes
+  Function StrInSingleQuotes(const aString : String) : String;
+
   // Returns aString enclosed in double quotes
   Function StrInDoubleQuotes(const aString : String) : String;
@@ -117 +123 @@
   Function CaseInsensitivePos(const aPart: String; const aString: String ): longint;
 
+  // Finds the last position of aChar within aString. Returns zero if no match
+  Function LastPosOfChar(const aChar: char; const aString: String): longint;
+
 
   // --------------------
@@ -122 +131 @@
   // --------------------
 
-  
+
   // removes all occurences of char from aSetOfChars from the beginning
   // of a String.
@@ -139 +148 @@
 
 
+  // --------------------
+  // ---- Misc TODO  ----
+  // --------------------
+
+  Procedure GetMemString(const aPointer : pointer; var aString: string; const aSize: byte);
+
+  Procedure FreePString(var aPString: PString );
+
+  Function NewPString(const aString : String) : PString;
 
 
@@ -145 +163 @@
   uses
     SysUtils,
-    DebugUnit;
+    DebugUnit,
+    ACLUtility;  // TODO
 
   constructor TSerializableStringList.Create;
@@ -568 +587 @@
 
 
+  Function StrIsEmptyOrSpaces(const aReceiver: String) : Boolean;
+  Begin
+    Asm
+      MOV ESI, aReceiver   // get address of aReceiver into ESI
+      MOV CL,[ESI]     // get length of s
+      MOVZX ECX, CL      // widen CL
+      INC ECX
+
+    !IsSpacesLoop:
+      INC ESI   // move to next char
+      DEC ECX
+      JE !IsSpacesTrue
+
+      MOV AL,[ESI] // load character
+      CMP AL,32  // is it a space?
+      JE !IsSpacesLoop // yes, go to next
+
+      // no, return false
+      MOV EAX, 0
+      JMP !IsSpacesDone
+
+    !IsSpacesTrue:
+      MOV EAX, 1
+
+    !IsSpacesDone:
+      LEAVE
+      RETN32 4
+    End;
+  End;
+
+
   Function StrEqualIgnoringCase(const aReceiver: String; const aSecondString: String): Boolean;
   begin
@@ -618 +668 @@
 
 
+  Function StrInSingleQuotes(const aString : String) : String;
+  begin
+    Result := StrSingleQuote + aString + StrSingleQuote;
+  end;
+
+
   Function StrInDoubleQuotes(const aString : String) : String;
   begin
@@ -866 +922 @@
 
 
+  Function LastPosOfChar(const aChar: char; const aString: String): longint;
+  Var
+    tmpPos : longint;
+  begin
+    tmpPos := Length(aString);
+    while tmpPos > 0 do
+    begin
+      if aString[tmpPos] = aChar then
+      begin
+        Result := tmpPos;
+        exit;
+      end;
+      dec(tmpPos);
+    end;
+    Result := 0;
+  end;
+
   // --------------------
   // ---- AnsiString ----
@@ -994 +1067 @@
 
 
+  // --------------------
+  // ---- Misc TODO  ----
+  // --------------------
+
+  Procedure GetMemString(const aPointer : pointer; var aString: string; const aSize: byte);
+  begin
+    aString[0] := char(aSize);
+    MemCopy(aPointer, Addr(aString[1]), aSize);
+  end;
+
+
+  Procedure FreePString(var aPString : PString );
+  begin
+    if aPString = nil then
+    begin
+      exit;
+    end;
+
+    FreeMem(aPString, Length(aPString^) + 1);
+    aPString := nil;
+  end;
+
+
+  Function NewPString(const aString : String) : PString;
+  begin
+    GetMem(Result, Length(aString) + 1);
+    Result^ := aString;
+  end;
+
 END.