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.45 by h677, Sun Aug 5 12:43:24 2007 UTC revision 1.46 by h677, Sun Sep 2 10:50:23 2007 UTC
# Line 384  begin Line 384  begin
384                                  buftoken := Copy(argline,1,pos-1);                                  buftoken := Copy(argline,1,pos-1);
385                                  Delete(argline,1,pos);                                  Delete(argline,1,pos);
386                                  if Length(buftoken) > 0 then begin                                  if Length(buftoken) > 0 then begin
387                                          bufstl.Append(buftoken);                      // >> で始まるトークンはコメント扱いで無視する
388                        if AnsiPos('>>', buftoken) <> 1 then begin
389                                            bufstl.Append(buftoken);
390                        end;
391                                  end else if ( bufstl.Count = 0 ) then begin                                  end else if ( bufstl.Count = 0 ) then begin
392                                          bufstl.Append('');                                          bufstl.Append('');
393                                  end;                                  end;
394                                  pos := AnsiPos(#9,argline);                                  pos := AnsiPos(#9,argline);
395                          end;                          end;
396                          if Length(argline) > 0 then begin                          if Length(argline) > 0 then begin
397                                  bufstl.Append(argline);                  // >> で始まるトークンはコメント扱いで無視する
398                    if AnsiPos('>>', argline) <> 1 then begin
399                                    bufstl.Append(argline);
400                    end;
401                          end;                          end;
402                          ret := bufstl.Count;                          ret := bufstl.Count;
403                          SetLength(Ftokens[index],ret);                          SetLength(Ftokens[index],ret);
# Line 449  begin Line 455  begin
455                  trgLen := Length(target);                  trgLen := Length(target);
456    
457                  for lines := 0 to High(Ftokens) do begin                  for lines := 0 to High(Ftokens) do begin
458                if Length(Ftokens[lines]) = 0 then begin
459                    Continue;
460                end;
461                          hit := true;                          hit := true;
462                          bufline := target;                          bufline := target;
463                          pts := PChar(bufline);                          pts := PChar(bufline);

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

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