Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AbonUnit.pas

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

revision 1.33 by yoffy, Thu Oct 21 07:32:31 2004 UTC revision 1.34 by yoffy, Thu Oct 21 09:04:26 2004 UTC
# Line 777  function TAbon.CheckIndividualAbonList(R Line 777  function TAbon.CheckIndividualAbonList(R
777  var  var
778          i : Integer;          i : Integer;
779  begin  begin
780          if FAbonRes[0].Res <> 0 then begin          if (FAbonRes.Count > 0) and (FAbonRes[0].Res <> 0) then begin
781                  for i := 0 to FAbonRes.Count - 1 do begin                  for i := 0 to FAbonRes.Count - 1 do begin
782                          if FAbonRes[i].Res = ResNum then begin                          if FAbonRes[i].Res = ResNum then begin
783                                  Result := true;                                  Result := true;

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

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