Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/AbonUnit.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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); |
| 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 |
|
|
| |