Subversion Repositories Kolibri OS

Rev

Rev 9906 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9906 Rev 9909
Line 231... Line 231...
231 
 
 231 
 
232 
PROCEDURE getChar* (line: tLine; i: INTEGER): WCHAR;
 232 
PROCEDURE getChar* (line: tLine; i: INTEGER): WCHAR;
233 
VAR
 233 
VAR
234 
    res: WCHAR;
 234 
	res: WCHAR;
235 
BEGIN
 235 
BEGIN
236 
    IF i >= line.length THEN
 - 
 
237 
        res := 0X
 - 
 
238 
    ELSE
 236 
	IF (0 <= i) & (i < line.length) THEN
- 
 
 237 
		SYSTEM.GET(line.ptr + i*WCHAR_SIZE, res)
- 
 
 238 
	ELSE
239 
    	SYSTEM.GET(line.ptr + i*WCHAR_SIZE, res)
 239 
		res := 0X
240 
    END
 240 
	END
241 
    RETURN res
 241 
	RETURN res