Subversion Repositories oidplus

Rev

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

Rev 735 Rev 740
Line 77... Line 77...
77 
 
 77 
 
78 
procedure ListBubbleSortOID(list: PStringList);
 78 
procedure ListBubbleSortOID(list: PStringList);
79 
var
 79 
var
80 
  n, i: integer;
 80 
  n, i: integer;
81 
  a, b: string;
 81 
  a, b: string;
- 
 
 82 
  swapped: boolean;
82 
begin
 83 
begin
83 
  n := ListCount(list);
 84 
  n := ListCount(list);
84 
  while n>1 do
 85 
  while n>1 do
85 
  begin
 86 
  begin
86 
    i := 0;
 87 
    i := 0;
- 
 
 88 
    swapped := false;
87 
    while i<n-1 do
 89 
    while i<n-1 do
88 
    begin
 90 
    begin
89 
      a := ListGetElement(list, i);
 91 
      a := ListGetElement(list, i);
90 
      b := ListGetElement(list, i+1);
 92 
      b := ListGetElement(list, i+1);
91 
      if CompareOID(a, b) > 0 then
 93 
      if CompareOID(a, b) > 0 then
92 
      begin
 94 
      begin
93 
        ListSwapElement(list, i, i+1);
 95 
        ListSwapElement(list, i, i+1);
- 
 
 96 
        swapped := true;
94 
      end;
 97 
      end;
95 
      Inc(i);
 98 
      Inc(i);
96 
    end;
 99 
    end;
- 
 
 100 
    if not swapped then break;
97 
    Dec(n);
 101 
    Dec(n);
98 
  end;
 102 
  end;
99 
end;
 103 
end;
100 
 
 104 
 
101 
function ASN1IDValid(asn1id: string): boolean;
 105 
function ASN1IDValid(asn1id: string): boolean;