Правильное отображение кирилицы в консольном приложении Delphi

← →
Белый волк © (2004-05-03 11:00) [0]

Как это организовать?

← →
Dimman (2004-05-03 11:04) [1]

OemToChar и CharToOEM - есть такие функции:)

← →
KSergey © (2004-05-03 11:05) [2]

А в чем именно проблема?
Вообще обычно в консоли все выводится в кодировке DOS
Соотв. либо контснты в проге задавать в этой кодировке, либо перед выводом конвертить.
см. CharToOem
Реализация для строк здесь обсуждалась как-то.

← →
Белый волк © (2004-05-03 13:32) [3]

KSergey
А как константы задавать в DOS кодировке?

← →
Anatoly Podgoretsky © (2004-05-03 13:55) [4]

Вот так

const
S = "¯ā® Ŗ®įā ā";

← →
Anatoly Podgoretsky © (2004-05-03 13:58) [5]

Но можно попробовать использовать функцию SetConsoleOutputCP чтобы не перекодировать, проверь сам.

← →
Белый волк © (2004-05-03 14:14) [6]

У меня Delphi 7 и я не могу найти в справке функции: OemToChar, CharToOEM, SetConsoleOutputCP Их там просто нет, а соответственно я не знаю как их применять, да и компелироваться они соответственно не будут =( А других Делфаков у меня нет...

Что делать? До этого я конечно всё переписывал в фаре но сейчас передо мной стала проблема которую невозможно решить переписыванием исходника под дос кодировку. Какие функции конвертируют текст в дос кодировку в Delphi 7 ?

Может как ни буть можно написать свою функцию, я в принцыпе не из ленивых но я не представляю с какой функции начать, не присваивать же каждому синволу кирилицы синвол dos, это будет маразм =(

← →
KSergey © (2004-05-03 14:56) [7]

> [6] Белый волк © (03.05.04 14:14)
> У меня Delphi 7 и я не могу найти в справке функции: OemToChar,
> CharToOEM, SetConsoleOutputCP Их там просто нет, а соответственно
> я не знаю как их применять, да и компелироваться они соответственно
> не будут =(

Шикарная логика! ;) Получается, что любые ф-ции, не описанные в книге/хелпе работать не будут?? А как-же по-вашему вообще работает виндовс, если доподлинно известно, что она содержит ряд недокументированных (в любых официальных хелпах для сторонних разработчиков), но активно используемых функций?? ;))

Советую посмотреть справку по WinAPI из поставки дельфи
MS SDK Hepl Files->Win32 Developer"s References

← →
Anatoly Podgoretsky © (2004-05-03 15:00) [8]

Белый волк © (03.05.04 14:14) [6]
Тебе сюда, что бы потом не говорил, что у меня нет хелп

http://blackman.wp-club.net/forums/index.php?act=ST&f=3&t=282&s=742918d8299d2d2f89e06e269a0df66e

← →
Белый волк © (2004-05-03 18:25) [9]

Хорошо, ну только какой модуль подключать чтоб они заработали?

← →
Белый волк © (2004-05-03 18:26) [10]

Хорошо, ну только какой модуль подключать чтоб они заработали?

← →
Anatoly Podgoretsky © (2004-05-03 19:42) [11]

Хватит обычного Windows

← →
Anatoly Podgoretsky © (2004-05-03 19:43) [12]

И второй совет, если не знаешь в какой справке смотреть, или в каком модуле то нажми клавишу Win+F или F3

Если это WinApi то тогда как их обьявлять в программе?

Белый волк

/*взять функцию из user32.dll*/
function MessageBox; external user32 name "MessageBoxA";

тебе надо не это тебе надо установить кодовую страницу 866 для этого посмотри хелп по console

или иди на Королество Дельфи там эта тема уже решалась

попробуй посмотри demos в Дельфях там тоже по мойму пример console был только тебе скорее всего что то расширенное надо на основании console

← →
leon3333 (2004-05-04 08:42) [16]

Давно бы уже написал свою процедуру перевода

> Давно бы уже написал свою процедуру перевода

Только не давно статью видел, может быть даже в Королевстве, где описывался способ подмены процедуры writeln своей процедурой с выводом в разных кодировках.
Вообщем Яндекс и Гугл как всегда рулят. До чего ленивые люди есть...

Правильное отображение кирилицы в консольном приложении Delphi Найти похожие ветки