Subversion Repositories oidplus

Rev

Rev 749 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 749 Rev 750
Line 1... Line 1...
1 
unit WEID;
 1 
unit WEID;
2 
 
 2 
 
3 
(*
 3 
(*
4 
 * WEID<=>OID Converter for TurboPascal
 4 
 * WEID<=>OID Converter for TurboPascal
5 
 * (c) Webfan.de, ViaThinkSoft
 5 
 * (c) Webfan.de, ViaThinkSoft
6 
 * Revision 2022-02-19
 6 
 * Revision 2022-02-22
7 
 *)
 7 
 *)
8 
 
 8 
 
9 
(*
 9 
(*
10 
  What is a WEID?
 10 
  What is a WEID?
11 
    A WEID (WEhowski IDentifier) is an alternative representation of an
 11 
    A WEID (WEhowski IDentifier) is an alternative representation of an
Line 181... Line 181...
181 
    oidstr := oidstr + base_convert_bigint(arc, 36, 10) + '.';
 181 
    oidstr := oidstr + base_convert_bigint(arc, 36, 10) + '.';
182 
    if complete = '' then break;
 182 
    if complete = '' then break;
183 
  end;
 183 
  end;
184 
  oidstr := Copy(oidstr, 1, Length(oidstr)-1);
 184 
  oidstr := Copy(oidstr, 1, Length(oidstr)-1);
185 
 
 185 
 
186 
  weid := namespace + weid; (* add namespace again *)
 186 
  weid := LowerCase(namespace) + UpperCase(weid); (* add namespace again *)
187 
 
 187 
 
188 
  WeidToOid := oidstr;
 188 
  WeidToOid := oidstr;
189 
end;
 189 
end;
190 
 
 190 
 
191 
function OidToWeid(oid: string): string;
 191 
function OidToWeid(oid: string): string;