Не считывает русский текст

[Rameron]

Появилась очередная проблема... Прошу помощи...
В ресурсах приложения находится txt-файл с русским текстом. При попытке прочитать и отрисовать хотя-бы первую строку, на экран выводятся "квадраты" и приложение виснет.

procedure readText;
var curLine:string;
begin
pathFile:='/File.txt';
txtFile:=OpenResource(pathFile);
if (resourceAvailable(txtFile)) then
begin
curLine:= ReadLine(txtFile); 
drawText(curLine,0,0); //выводятся "квадраты"
Delay(2000);
end;
CloseResource(txtFile); 
end; 


Пытался изменять кодировку файла, но результат от этого не менялся.
При попытке открыть сам файл в MP - всякие иероглифы.

[cherepets]

см. lib_resloader

[Rameron]

Сообщение от cherepets

см. lib_resloader

Я смотрел, но не до конца понял, как ею пользоваться. Можно мой пример переделать под неё, пожалуйста?

[GRAY_WOLF]

Вот http://www.forum.boolean.name/showthread.php?t=11688 наипрекраснейший пример. Нужно только шрифты поставить новые т.к. библиотека font32 после этого примера сменилась.

[cherepets]

там есть функция win2utf (вроде так звалась).
кормишь ей "квадраты", а получаешь текст.
вот так:

curLine:= win2utf(ReadLine(txtFile));

[Rameron]

Сообщение от cherepets

там есть функция win2utf (вроде так звалась).
кормишь ей "квадраты", а получаешь текст.
вот так:

curLine:= win2utf(ReadLine(txtFile));

Вот, спасибо, это как раз оно.