VPF::Глюки в Delphi - Форум программистов

REVOLT

Дата 6.6.2004, 18:09 (ссылка)

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

Загрузка ...

Бывалый

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

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

File >> New >> Other... >> Console Application (бывали здесь?

)
Так вот русский текст не выводится

, а очень надо!!! Подскажите, может есть какие нить настройки, или как сдесь быть, я только начал программировать и пока только в этой консоле начинаю!!! Помогите плиз...

Alex

Дата 6.6.2004, 20:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

что значит не выводится

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

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

REVOLT

Дата 6.6.2004, 21:52 (ссылка)

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

Загрузка ...

Бывалый

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

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

Выводится, но какимито странными символами (русский), а английский выводится нормально

Medved

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

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

просто в консоли выводиться в кодировке DOS, если я не ошибаюсь. А у тебя записано в кодировке windows.

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

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

Alex

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

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

Загрузка ...

Эксперт

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

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

Код

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

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

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

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