Subversion Repositories oidplus

Rev

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

Rev 743 Rev 744
Line 217... Line 217...
217 
 
 217 
 
218 
  (* Remove last CRLF *)
 218 
  (* Remove last CRLF *)
219 
  oid^.Description := Copy(oid^.Description, 1, Length(oid^.Description)-Length(#13#10));
 219 
  oid^.Description := Copy(oid^.Description, 1, Length(oid^.Description)-Length(#13#10));
220 
 
 220 
 
221 
  (* Check if something is not correct *)
 221 
  (* Check if something is not correct *)
222 
  if (version <> WANT_VERS) or (oid^.FileId = '') then
 222 
  ReadOidFile := (version = WANT_VERS) and (oid^.FileId <> '');
223 
  begin
 - 
 
224 
    (* Invalidate everything *)
 - 
 
225 
    ClearOidDef(oid);
 - 
 
226 
  end;
 - 
 
227 
 
 223 
 
228 
  Close(f);
 224 
  Close(f);
229 
 
 - 
 
230 
  ReadOidFile := true;
 - 
 
231 
end;
 225 
end;
232 
 
 226 
 
233 
function FileIdPart(s: string): string;
 227 
function FileIdPart(s: string): string;
234 
begin
 228 
begin
235 
  FileIdPart := Copy(s,1,8);
 229 
  FileIdPart := Copy(s,1,8);