Changeset 117 for trunk/NewView/CharUtilsUnit.pas

Timestamp:

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

Author:

RBRi

Message:

Pchar utils added

File:

• trunk/NewView/CharUtilsUnit.pas (modified) (2 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.