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.38 by h677, Mon Jul 18 03:55:14 2005 UTC revision 1.39 by h677, Sun Aug 21 09:57:15 2005 UTC
# Line 389  begin Line 389  begin
389                          ret := bufstl.Count;                          ret := bufstl.Count;
390                          SetLength(Ftokens[index],ret);                          SetLength(Ftokens[index],ret);
391                          for i := 0 to bufstl.Count - 1  do begin                          for i := 0 to bufstl.Count - 1  do begin
392                                  Ftokens[index][i] := bufstl.Strings[i];                                  Ftokens[index][i] := ZenToHan(bufstl.Strings[i]);
393                          end;                          end;
394                  end;                  end;
395          finally          finally
# Line 428  begin Line 428  begin
428          if AnsiPos(FAbonString,line) <> 1 then begin          if AnsiPos(FAbonString,line) <> 1 then begin
429                  for lines := 0 to High(Ftokens) do begin                  for lines := 0 to High(Ftokens) do begin
430                          hit := true;                          hit := true;
431                          bufline := line;                          bufline := ZenToHan(line);
432                          if Ftokens[lines][0] <> ''  then begin                          if Ftokens[lines][0] <> ''  then begin
433                                  Invisible := false;                                  Invisible := false;
434                                  start := 0;                                  start := 0;

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

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