VPF::Консоль Delphi & русские буквы при Run

Pakshin A. S.

Дата 15.11.2004, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

После написания проги на консоли, при запуске оной, все русские буквы превращаются в неизвесно что... как обуздать эту штуку? Надо срочно!!!

Alex

Дата 15.11.2004, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Перед выводом текста нужно перевести его в Dos кодироку

Код


function Ansi2OEM(const S : string) : string;
// Конвертирует строку из кодировки Windows в DOS кодировку
begin
  SetLength(Result,Length(S));
  if  Length(S) <> 0  then
    CharToOem(pChar(S),pChar(Result));
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Pakshin A. S.

Дата 15.11.2004, 22:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Ууу... препод не поймет... smile

Спасибо... теперь не надо будет изощряться в способах вывода результатов. smile

Добавлено @ 22:29
Блин, а если преподаватель сюда заглянет?... smile

Олег Данилович, не обижайтесь, это просто так... для слова... smile

Dimich

Дата 16.11.2004, 08:15 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 247
Регистрация: 25.8.2004
Где: Брянск

Репутация: 1
Всего: 7

Если нужна "красота" исходного текста, то перед компиляцией можно исходник перевести в кодировку DOS (Win1251 --> Dos866). Это можно сделать даже в редакторе Far'а. А потом откомпилить. Так исходник больше понравится преподавателю (красивше будет). smile

--------------------

Не работает - исправь, работает - не трогай!!!

Pakshin A. S.

Дата 16.11.2004, 22:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Исходник, его красота не волнует, тем более при открытии в Delphi он есть нормальный...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »