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_Delphi;
 1 
unit WEID_Delphi;
2 
 
 2 
 
3 
(*
 3 
(*
4 
 * WEID<=>OID Converter for Delphi
 4 
 * WEID<=>OID Converter for Delphi
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 258... Line 258...
258 
    oidstr := oidstr + base_convert_bigint(arc, 36, 10) + '.';
 258 
    oidstr := oidstr + base_convert_bigint(arc, 36, 10) + '.';
259 
    if complete = '' then break;
 259 
    if complete = '' then break;
260 
  end;
 260 
  end;
261 
  oidstr := Copy(oidstr, 1, Length(oidstr)-1);
 261 
  oidstr := Copy(oidstr, 1, Length(oidstr)-1);
262 
 
 262 
 
263 
  weid := namespace + weid; (* add namespace again *)
 263 
  weid := LowerCase(namespace) + UpperCase(weid); (* add namespace again *)
264 
 
 264 
 
265 
  result := oidstr;
 265 
  result := oidstr;
266 
end;
 266 
end;
267 
 
 267 
 
268 
function OidToWeid(oid: string): string;
 268 
function OidToWeid(oid: string): string;