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; |