Rev 9336 | Rev 9413 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9336 | Rev 9410 | ||
|---|---|---|---|
| Line 1832... | Line 1832... | ||
| 1832 | 1832 | ||
| 1833 | 1833 | ||
| 1834 | PROCEDURE getWordPos (line: tLine; pos: INTEGER): INTEGER; |
1834 | PROCEDURE getWordPos (line: tLine; pos: INTEGER): INTEGER; |
| 1835 | VAR |
- | |
| 1836 | c: WCHAR; |
1835 | VAR |
| 1837 | 1836 | c: WCHAR; |
|
| 1838 | BEGIN |
1837 | BEGIN |
| 1839 | c := getChar(line, pos); |
1838 | c := getChar(line, pos); |
| 1840 | IF isWordChar(c) THEN |
1839 | IF isWordChar(c) THEN |