Subversion Repositories checksum-tools

Rev

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

Rev 2 Rev 3
Line 37... Line 37...
37 
begin
 37 
begin
38 
  s := '';
 38 
  s := '';
39 
  ReadFile(hFile, buf, 1, dwread, nil);
 39 
  ReadFile(hFile, buf, 1, dwread, nil);
40 
  while (dwread > 0) do
 40 
  while (dwread > 0) do
41 
  begin
 41 
  begin
42 
    if buf[0] <> #10 then
 42 
    if buf[0] <> #13 then // Note: The first line of SFV files contains a comment ended with LF while the other lines end with CR-LF
43 
    begin
 43 
    begin
44 
      if buf[0] = #13 then exit;
 44 
      if buf[0] = #10 then exit;
45 
      s := s + string(buf[0]);
 45 
      s := s + string(buf[0]);
46 
    end;
 46 
    end;
47 
    Readfile(hFile, buf, 1, dwread, nil);
 47 
    Readfile(hFile, buf, 1, dwread, nil);
48 
  end;
 48 
  end;
49 
end;
 49 
end;