Subversion Repositories oidplus

Rev

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

Rev 733 Rev 735
Line 1... Line 1...
1 
unit OIDUTILS;
 1 
unit OIDUTILS;
2 
 
 2 
 
3 
(************************************************)
 3 
(************************************************)
4 
(* OIDUTILS.PAS                                 *)
 4 
(* OIDUTILS.PAS                                 *)
5 
(* Author:   Daniel Marschall                   *)
 5 
(* Author:   Daniel Marschall                   *)
6 
(* Revision: 2022-02-12                         *)
 6 
(* Revision: 2022-02-14                         *)
7 
(* License:  Apache 2.0                         *)
 7 
(* License:  Apache 2.0                         *)
8 
(* This file contains:                          *)
 8 
(* This file contains:                          *)
9 
(* - Various OID functions                      *)
 9 
(* - Various OID functions                      *)
10 
(************************************************)
 10 
(************************************************)
11 
 
 11 
 
Line 66... Line 66...
66 
 
 66 
 
67 
function CompareOID(a, b: string): integer;
 67 
function CompareOID(a, b: string): integer;
68 
var
 68 
var
69 
  la, lb: PStringList;
 69 
  la, lb: PStringList;
70 
begin
 70 
begin
71 
  InitList(la);
 71 
  CreateList(la);
72 
  InitList(lb);
 72 
  CreateList(lb);
73 
  OIDtoArcList(a, la);
 73 
  OIDtoArcList(a, la);
74 
  OIDtoArcList(b, lb);
 74 
  OIDtoArcList(b, lb);
75 
  CompareOID := CompareOIDArcList(la, lb);
 75 
  CompareOID := CompareOIDArcList(la, lb);
76 
end;
 76 
end;
77 
 
 77