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.14 by h677, Thu Sep 18 10:02:48 2003 UTC revision 1.15 by h677, Thu Sep 18 12:06:46 2003 UTC
# Line 289  begin Line 289  begin
289      hit := false;      hit := false;
290      if AnsiPos(FAbonString,line) <> 1 then begin      if AnsiPos(FAbonString,line) <> 1 then begin
291          for lines := 0 to High(Ftokens) do begin          for lines := 0 to High(Ftokens) do begin
292              if High(Ftokens[lines]) > 0 then begin                  hit := true;
293                      hit := true;              bufline := line;
294                  bufline := line;              for cells := 0 to High(Ftokens[lines]) do begin
295                      for cells := 0 to High(Ftokens[lines]) do begin                  if AnsiPos(Ftokens[lines][cells],bufline) = 0 then begin
296                      if AnsiPos(Ftokens[lines][cells],bufline) = 0 then begin                          hit := false;
297                              hit := false;                      break;
298                          break;                  end else begin
299                          end else begin                          Delete(bufline,AnsiPos(Ftokens[lines][cells],bufline),Length(Ftokens[lines][cells]));
300                          Delete(bufline,AnsiPos(Ftokens[lines][cells],bufline),Length(Ftokens[lines][cells]));                  end;
301                          end;              end;
302                  end;              if hit = true then begin
303                      if hit = true then begin                  break;
                     break;  
                 end;  
             end else begin  
                 hit := false;  
304              end;              end;
305          end;          end;
306      end;      end;

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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