Changeset 117

Timestamp:

Apr 26, 2007, 1:53:33 PM (18 years ago)

Author:

RBRi

Message:

Pchar utils added

Location:

trunk/NewView

Files:

• CharUtilsUnit.pas (modified) (2 diffs)
• unittests/CharUtilsUnitTests.pas (modified) (3 diffs)

trunk/NewView/CharUtilsUnit.pas

@@ -27 +27 @@
   Function CharIsAlpha(const aChar : char) : boolean;
 
+
+  // ---------------
+  // ---- PChar ----
+  // ---------------
+
+  
+  // Converts a PChar into a String like StrPas
+  // but conversts at least the first aLength chars
+  Function StrPasWithLength(const aPChar: PChar; const aLength: integer) : String;
+
+  // Returns the difference of the pointers
+  Function PCharPointerDiff(const aMinuend: PChar; const aSubtrahend : PChar ) : Longword;
+
 Implementation
 
@@ -43 +56 @@
 
 
+  // ---------------
+  // ---- PChar ----
+  // ---------------
+
+
+  // Converts a PChar into a String like StrPas
+  // but conversts at least the first aLength chars
+  Function StrPasWithLength(const aPChar: PChar; const aLength: integer) : String;
+  var
+    i: integer;
+  begin
+    Result := '';
+    i := 0;
+    while (aPChar[i] <> #0) and (i < aLength) do
+    begin
+      Result := Result + aPChar[i];
+      inc( i );
+    end;
+  end;
+
+
+  Function PCharPointerDiff(const aMinuend: PChar; const aSubtrahend : PChar ) : Longword;
+  begin
+    Result := Longword(aMinuend) - Longword(aSubtrahend);
+  end;
+
+
 END.

trunk/NewView/unittests/CharUtilsUnitTests.pas

@@ -5 +5 @@
 uses
   Classes,
+  SysUtils,
   TestAssert,
   CharUtilsUnit;
@@ -136 +137 @@
 
 
+  // ---------------
+  // ---- PChar ----
+  // ---------------
+
+
+  PROCEDURE testStrPasWithLength_Empty;
+  VAR
+    tmpPChar : PChar;
+    tmpResult : String;
+  BEGIN
+    tmpPChar := '';
+    tmpResult := StrPasWithLength(tmpPChar, 0);
+
+    assertEqualsAnsiString('testStrPasWithLength_Empty', '', tmpResult);
+  END;
+
+
+  PROCEDURE testStrPasWithLength_EmptyLengt11;
+  VAR
+    tmpPChar : PChar;
+    tmpResult : String;
+  BEGIN
+    tmpPChar := '';
+    tmpResult := StrPasWithLength(tmpPChar, 11);
+
+    assertEqualsAnsiString('testStrPasWithLength_EmptyLengt11', '', tmpResult);
+  END;
+
+
+  PROCEDURE testStrPasWithLength_Lengt0;
+  VAR
+    tmpPChar : PChar;
+    tmpResult : String;
+  BEGIN
+    tmpPChar := 'abc';
+    tmpResult := StrPasWithLength(tmpPChar, 0);
+
+    assertEqualsAnsiString('testStrPasWithLength_Lengt0', '', tmpResult);
+  END;
+
+
+  PROCEDURE testStrPasWithLength_FirstChar;
+  VAR
+    tmpPChar : PChar;
+    tmpResult : String;
+  BEGIN
+    tmpPChar := 'abc';
+    tmpResult := StrPasWithLength(tmpPChar, 1);
+
+    assertEqualsAnsiString('testStrPasWithLength_FirstChar', 'a', tmpResult);
+  END;
+
+
+  PROCEDURE testStrPasWithLength_ExactLength;
+  VAR
+    tmpPChar : PChar;
+    tmpResult : String;
+  BEGIN
+    tmpPChar := 'abc';
+    tmpResult := StrPasWithLength(tmpPChar, 3);
+
+    assertEqualsAnsiString('testStrPasWithLength_ExactLength', 'abc', tmpResult);
+  END;
+
+
+  PROCEDURE testStrPasWithLength_LengthOneToBig;
+  VAR
+    tmpPChar : PChar;
+    tmpResult : String;
+  BEGIN
+    tmpPChar := 'abc';
+    tmpResult := StrPasWithLength(tmpPChar, 4);
+
+    assertEqualsAnsiString('testStrPasWithLength_LengthOneToBig', 'abc', tmpResult);
+  END;
+
+
+  PROCEDURE testStrPasWithLength_LengthNegative;
+  VAR
+    tmpPChar : PChar;
+    tmpResult : String;
+  BEGIN
+    tmpPChar := 'abc';
+    tmpResult := StrPasWithLength(tmpPChar, -4);
+
+    assertEqualsAnsiString('testStrPasWithLength_LengthNegative', '', tmpResult);
+  END;
+
+
+  // ----------------------------------------------------------
+
+  PROCEDURE testPCharPointerDiff_Same;
+  VAR
+    tmpMinuend : PChar;
+    tmpSubtrahend : PChar;
+    tmpResult : Longword;
+  BEGIN
+    tmpMinuend := 'abc';
+    tmpSubtrahend := tmpMinuend;
+    tmpResult := PCharPointerDiff(tmpMinuend, tmpSubtrahend);
+
+    assertEqualsLongWord('testPCharPointerDiff_Same', 0, tmpResult);
+  END;
+
+
+  PROCEDURE testPCharPointerDiff;
+  VAR
+    tmpMinuend : PChar;
+    tmpSubtrahend : PChar;
+    tmpResult : Longword;
+  BEGIN
+    tmpSubtrahend := 'abcdef';
+    tmpMinuend := tmpSubtrahend + 2;
+    assertEqualsString('testPCharPointerDiff', 'cdef', StrPas(tmpMinuend));
+
+    tmpResult := PCharPointerDiff(tmpMinuend, tmpSubtrahend);
+
+    assertEqualsLongWord('testPCharPointerDiff_Same', 2, tmpResult);
+  END;
+
+
   // ----------------------------------------------------------
 
@@ -149 +271 @@
     result.add(@testCharIsAlpha_False);
 
+
+    result.add(@testStrPasWithLength_Empty);
+    result.add(@testStrPasWithLength_EmptyLengt11);
+    result.add(@testStrPasWithLength_Lengt0);
+    result.add(@testStrPasWithLength_FirstChar);
+    result.add(@testStrPasWithLength_ExactLength);
+    result.add(@testStrPasWithLength_LengthOneToBig);
+    result.add(@testStrPasWithLength_LengthNegative);
+
+    result.add(@testPCharPointerDiff_Same);
+    result.add(@testPCharPointerDiff);
+
   END;