Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/AbonUnit.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 807 |
pos: Integer; |
pos: Integer; |
| 808 |
tmp: string; |
tmp: string; |
| 809 |
begin |
begin |
| 810 |
|
tmp := ''; |
| 811 |
pos := AnsiPos('', AString); |
pos := AnsiPos('', AString); |
| 812 |
while pos <> 0 do begin |
while pos <> 0 do begin |
| 813 |
if StrToIntDef(Copy(AString, pos+4, 2), -1) > 0 then begin |
tmp := tmp + Copy(AString, 1, pos - 1); |
| 814 |
if (AString[pos+6] = ';' ) or (AString[pos+6] = ' ') then begin |
Delete(AString, 1, pos -1); |
| 815 |
tmp := tmp + Copy(AString, 1, pos - 1); |
if StrToIntDef(Copy(AString, 4, 2), -1) > 0 then begin |
| 816 |
Delete(AString, 1, pos+6); |
if (AString[7] = ';' ) or (AString[7] = ' ') then begin |
| 817 |
end else if StrToIntDef(AString[pos+6], -1) = -1 then begin |
Delete(AString, 1, 7); |
| 818 |
tmp := tmp + Copy(AString, 1, pos - 1); |
end else if StrToIntDef(AString[7], -1) = -1 then begin |
| 819 |
Delete(AString, 1, pos+5); |
Delete(AString, 1, 6); |
| 820 |
end else begin |
end else begin |
| 821 |
tmp := tmp + Copy(AString, 1, pos + 5); |
tmp := tmp + Copy(AString, 1, 6); |
| 822 |
Delete(AString, 1, pos+5); |
Delete(AString, 1, 6); |
| 823 |
end; |
end; |
| 824 |
end else begin |
end else begin |
| 825 |
tmp := tmp + Copy(AString, 1, pos + 5); |
tmp := tmp + Copy(AString, 1, 7); |
| 826 |
Delete(AString, 1, pos+5); |
Delete(AString, 1, 7); |
| 827 |
end; |
end; |
| 828 |
pos := AnsiPos('', AString); |
pos := AnsiPos('', AString); |
| 829 |
end; |
end; |
| 834 |
|
|
| 835 |
pos := AnsiPos('³', AString); |
pos := AnsiPos('³', AString); |
| 836 |
while pos <> 0 do begin |
while pos <> 0 do begin |
| 837 |
if StrToIntDef(Copy(AString, pos+5, 1), 0) > 2 then begin |
tmp := tmp + Copy(AString, 1, pos - 1); |
| 838 |
if (AString[pos+6] = ';') or (AString[pos+6] = ' ') then begin |
Delete(AString, 1, pos - 1); |
| 839 |
tmp := tmp + Copy(AString, 1, pos - 1); |
if StrToIntDef(Copy(AString, 6, 1), 0) > 2 then begin |
| 840 |
Delete(AString, 1, pos+6); |
if (AString[7] = ';') or (AString[7] = ' ') then begin |
| 841 |
end else if StrToIntDef(AString[pos+6], -1) = -1 then begin |
Delete(AString, 1, 7); |
| 842 |
tmp := tmp + Copy(AString, 1, pos - 1); |
end else if StrToIntDef(AString[7], -1) = -1 then begin |
| 843 |
Delete(AString, 1, pos+5); |
Delete(AString, 1, 6); |
| 844 |
end else begin |
end else begin |
| 845 |
tmp := tmp + Copy(AString, 1, pos + 5); |
tmp := tmp + Copy(AString, 1, 5); |
| 846 |
Delete(AString, 1, pos+5); |
Delete(AString, 1, 5); |
| 847 |
end; |
end; |
| 848 |
end else begin |
end else begin |
| 849 |
tmp := tmp + Copy(AString, 1, pos + 5); |
tmp := tmp + Copy(AString, 1, 5); |
| 850 |
Delete(AString, 1, pos+5); |
Delete(AString, 1, 5); |
| 851 |
end; |
end; |
| 852 |
pos := AnsiPos('³', AString); |
pos := AnsiPos('³', AString); |
| 853 |
end; |
end; |
|
|
Legend:
| Removed from v.1.37 |
|
| changed lines |
| |
Added in v.1.37.4.1 |
|
|
| |