anchor.diff:        Result := '0' + Result;
       end;
     end;
  +
   end;
   
   function RemoveZerosFromFront(aValue: String): String;
  
positive.code: function sysconf(i:cint):clong;cdecl;external name 'sysconf';
  {$endif}
  
  function AddZerosFront (aValue : integer; aLength : integer) : String;
  var
    i, l : integer;
  begin
    Result := IntToStr(aValue);
    l := Length(Result);
    if l < aLength then
    begin
  
negative.code: function GenerateRandomIdString(aLength : integer): string; overload;
  function CreateUniqueIdentifier : String; // actually a GUID without parentheses, to be used as unique indentifier in db tables
  
  function AddZerosFront (const aValue : integer; const aLength : integer) : String; overload;
  function AddZerosFront (const aValue : string; const aLength : integer) : String; overload;
  function RemoveZerosFromFront (aValue : String) : String;
  function CountOccurancesOfChar(const aValue: Char; const aStr : String): integer;
  
  