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