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