Rev 745 | Rev 748 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 745 | Rev 747 | ||
|---|---|---|---|
| Line 224... | Line 224... | ||
| 224 | ListBubbleSortSubIds(oid); |
224 | ListBubbleSortSubIds(oid); |
| 225 | 225 | ||
| 226 | (* Remove last CRLF *) |
226 | (* Remove last CRLF *) |
| 227 | oid^.Description := Copy(oid^.Description, 1, Length(oid^.Description)-Length(#13#10)); |
227 | oid^.Description := Copy(oid^.Description, 1, Length(oid^.Description)-Length(#13#10)); |
| 228 | 228 | ||
| 229 | (* Check if something is not correct *) |
229 | (* Check if everything is correct *) |
| 230 | ReadOidFile := (version = WANT_VERS) and (oid^.FileId <> ''); |
230 | ReadOidFile := (version = WANT_VERS) and (oid^.FileId <> ''); |
| 231 | 231 | ||
| 232 | Close(f); |
232 | Close(f); |
| 233 | end; |
233 | end; |
| 234 | 234 | ||