Subversion Repositories Kolibri OS

Rev

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

Rev 9906 Rev 9909
Line 229... Line 229...
229 
END resize;
 229 
END resize;
Line 230... Line 230...
230 
 
 230 
 
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
 236 
	IF (0 <= i) & (i < line.length) THEN
237 
        res := 0X
 237 
		SYSTEM.GET(line.ptr + i*WCHAR_SIZE, res)
238 
    ELSE
 238 
	ELSE
239 
    	SYSTEM.GET(line.ptr + i*WCHAR_SIZE, res)
 239 
		res := 0X
240 
    END
 240 
	END
Line 241... Line 241...
241 
    RETURN res
 241 
	RETURN res
242 
END getChar;
 242 
END getChar;