forum.boolean.name - Показать сообщение отдельно

Randomize · 31.03.2010, 21:28

Кстати говоря. Никогда меня это почемуто не интересовало.
Тут решил попробывать и реально фейл.



Graphics(640, 480) 
SetImageFont(LoadImageFont("C:\Windows\Fonts\Arial.ttf", 20)) 
Local f:TStream = ReadFile("file.txt") 
Local assa:String = ReadLine(f) 
CloseFile(f) 
Repeat 
DrawText(assa, 10, 10) 
Flip 
Until KeyHit(KEY_ESCAPE) 
End

Содержимое file.txt



текст по русски

Пробывал кодировки:
UTF-8
cp1251
KOI-8

Все фейл, в чём соль?

31.03.2010, 21:28	#10
Randomize [object Object] Регистрация: 01.08.2008 Адрес: В России Сообщений: 4,355 Написано 2,471 полезных сообщений (для 6,852 пользователей) Всего наград 1	Ответ: почему макс не выводит русский? Кстати говоря. Никогда меня это почемуто не интересовало. Тут решил попробывать и реально фейл. `Graphics(640, 480) SetImageFont(LoadImageFont("C:\Windows\Fonts\Arial.ttf", 20)) Local f:TStream = ReadFile("file.txt") Local assa:String = ReadLine(f) CloseFile(f) Repeat DrawText(assa, 10, 10) Flip Until KeyHit(KEY_ESCAPE) End` Содержимое file.txt `текст по русски` Пробывал кодировки: UTF-8 cp1251 KOI-8 Все фейл, в чём соль? __________________ Retry, Abort, Ignore? █ Intel Core i7-9700 4.70 Ghz; 64Gb; Nvidia RTX 3070 AMD Ryzen 7 3800X 4.3Ghz; 64Gb; Nvidia 1070Ti AMD Ryzen 7 1700X 3.4Ghz; 8Gb; AMD RX 570 AMD Athlon II 2.6Ghz; 8Gb; Nvidia GTX 750 Ti
(Offline)