|
Вопрос # 4 849/ вопрос закрыт / |
|
Здравствуйте, эксперты!
Подскажите пожалуйста как с помощью функции WriteConsoleInput вывести текстовое сообщение в консоль, да еще по определенным координатам?
Я пробовал пользоваться WriteConsoleOutputCharacter, но как выяснил у нее проблемы с русской кодировкой.
Заранее спасибо!
 |
Вопрос задал: blackhawk (статус: Посетитель)
Вопрос отправлен: 22 декабря 2010, 13:21
Состояние вопроса: закрыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Переместил по просьбе автора вопроса.
Цитата (blackhawk):
Но насколько это правильно, пока не решил...
На-ка вот глянь мой самодельный модуль по работе с кодировками. Может пригодится?
UPD: если администрация желает, то может переместить мой модуль в файловый архив, может быть кому-нибудь ещё пригодится.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 23 декабря 2010, 11:11
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 26; последнее сообщение — 23 декабря 2010, 11:25; участников в обсуждении: 4.
Страницы: [« Предыдущая] [1] [2]
|
|
blackhawk (статус: Посетитель), 23 декабря 2010, 10:07 [#21]:
После долгих раздумий и попыток отказаться от CharToOem решил проблему с русским текстом так:
function ConvertToRus(St: String): String;
var
I: Integer;
S: String;
begin
Result := '';
S := St;
If Length(S) > 0 then
begin
For I := 1 to Length(S) do
case St[I] of
'А'..'п' : S[I] := Chr(Ord(S[i]) - 64);
'р'..'я' : S[I] := Chr(Ord(S[i]) - 16);
end;
end;
Result := S;
end;
Но насколько это правильно, пока не решил...
В общем вопрос остается открытым
|
|
|
min@y™ (статус: Доктор наук), 23 декабря 2010, 10:13 [#22]:
Цитата (blackhawk):
Но насколько это правильно, пока не решил...
На-ка вот глянь мой самодельный модуль по работе с кодировками. Может пригодится?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
blackhawk (статус: Посетитель), 23 декабря 2010, 10:53 [#23]:
min@y™:
Да, спасибо огромное.
Чуть подкрутил, чтобы форм не было.
EncodingTranslate(Buff, tdAnsiToDos) сразу все сделала.
P.S.
А что, теперь в почте убрали выставление оценок?
|
|
|
min@y™ (статус: Доктор наук), 23 декабря 2010, 11:01 [#24]:
Цитата (blackhawk):
А что, теперь в почте убрали выставление оценок?
Выставление оценок возможно только на ответы, а не на посты в форуме. Однако могу преобразовать пост в ответ.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
blackhawk (статус: Посетитель), 23 декабря 2010, 11:05 [#25]:
Ну в принципе, раз уж так все сложилось и обошлись без WriteConsoleInput, то вопрос можно закрывать.
Да, пожайлуста преобразуйте
|
|
|
min@y™ (статус: Доктор наук), 23 декабря 2010, 11:25 [#26]:
Цитата (blackhawk):
вопрос можно закрывать.
Ну так закрой, у тебя есть полномочия.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
23 декабря 2010, 12:38: Вопрос закрыт (решение принял автор вопроса — blackhawk): Всем огромное спасибо!
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
