Subversion Repositories Kolibri OS

Rev

Rev 9599 | Rev 9668 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9599 Rev 9659
Line 182... Line 182...
182 
END resize;
 182 
END resize;
Line 183... Line 183...
183 
 
 183 
 
184 
 
 184 
 
185 
PROCEDURE getChar* (line: tLine; i: INTEGER): WCHAR;
 185 
PROCEDURE getChar* (line: tLine; i: INTEGER): WCHAR;
186 
VAR
 186 
VAR
- 
 
 187 
    res: WCHAR;
- 
 
 188 
BEGIN
- 
 
 189 
    IF i >= line.length THEN
187 
    c: WCHAR;
 190 
        res := 0X
- 
 
 191 
    ELSE
188 
BEGIN
 192 
    	SYSTEM.GET(line.ptr + i*WCHAR_SIZE, res)
189 
    SYSTEM.GET(line.ptr + i*WCHAR_SIZE, c)
 193 
    END
Line 190... Line 194...
190 
    RETURN c
 194 
    RETURN res
191 
END getChar;
 195 
END getChar;