Subversion Repositories oidplus

Rev

Rev 748 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 748 Rev 992
Line 1... Line 1...
1 
unit OIDFILE;
 1 
unit OIDFILE;
2 
 
 2 
 
3 
(************************************************)
 3 
(************************************************)
4 
(* OIDFILE.PAS                                  *)
 4 
(* OIDFILE.PAS                                  *)
5 
(* Author:   Daniel Marschall                   *)
 5 
(* Author:   Daniel Marschall                   *)
6 
(* Revision: 2022-02-19                         *)
 6 
(* Revision: 2022-10-10                         *)
7 
(* License:  Apache 2.0                         *)
 7 
(* License:  Apache 2.0                         *)
8 
(* This file contains:                          *)
 8 
(* This file contains:                          *)
9 
(* - Functions to handle an OID ASCII format    *)
 9 
(* - Functions to handle an OID ASCII format    *)
10 
(************************************************)
 10 
(************************************************)
11 
 
 11 
 
Line 250... Line 250...
250 
      ListAppend(oid^.UnicodeLabels, line);
 250 
      ListAppend(oid^.UnicodeLabels, line);
251 
    end;
 251 
    end;
252 
 
 252 
 
253 
    if cmd = 'DESC' then
 253 
    if cmd = 'DESC' then
254 
    begin
 254 
    begin
- 
 
 255 
      if Length(oid^.Description) + Length(line) + 2 <= 255 then
- 
 
 256 
      begin
255 
      oid^.Description := oid^.Description + line + #13#10;
 257 
        oid^.Description := oid^.Description + line + #13#10;
256 
    end;
 258 
      end;
257 
  end;
 259 
    end;
- 
 
 260 
  end;
258 
 
 261 
 
259 
  (* Sort sub IDs *)
 262 
  (* Sort sub IDs *)
260 
  ListBubbleSortSubIds(oid);
 263 
  ListBubbleSortSubIds(oid);
261 
 
 264 
 
262 
  (* Remove last CRLF *)
 265 
  (* Remove last CRLF *)