Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ItemDownload.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.37 by yoffy, Thu Sep 16 14:09:52 2004 UTC revision 1.38 by h677, Fri Oct 1 13:19:52 2004 UTC
# Line 1259  begin Line 1259  begin
1259                                                          OldCnt := Body.IndexOf(oldBody.Strings[ LastIdx ]) + 1;                                                          OldCnt := Body.IndexOf(oldBody.Strings[ LastIdx ]) + 1;
1260                                                  until ( OldCnt <> 0 ) or (LastIdx = 0);                                                  until ( OldCnt <> 0 ) or (LastIdx = 0);
1261    
1262                                                    if OldCnt >= Body.Count then OldCnt := Body.Count - 1;
1263                                                  NewRes := Body.Count - OldCnt;                                                  NewRes := Body.Count - OldCnt;
1264    
1265    
1266                                          finally                                          finally
1267                                                  oldBody.Free;                                                  oldBody.Free;
1268                                          end;                                          end;

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26