VPF::Проблемы русского языка в Delphi - Форум программистов

Yanis

Дата 17.7.2006, 11:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ramin
Я думаю, что вопрос 3-х летней давности уже решён.

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

*щёлк*

bems

Дата 17.7.2006, 12:05 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Yanis,
alexeis1, в своей

Цитата(alexeis1 @ 17.7.2006, 09:37

)

MyWriteln('русский язык');
Writeln('русский язык');

Хотелось бы русифицировать саму консоль и писать обычным Writeln.
Вот SetConsoleOutputCP по описанию - то что надо, но в моих кривых руках не работает.

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

Обижено школьников: 8

Alexeis

Дата 17.7.2006, 13:12 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

bems, Я прогнал 2100 страниц - от 1 до 2100
Все одно и тоже, эти функции не меняют кодировку

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Alexeis

Дата 17.7.2006, 13:54 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

А вот так можно все кодировки просмотреть - результат анологичний

Код


program Project1;

{$APPTYPE CONSOLE}
uses
   windows, SysUtils, Registry, Classes;

procedure MyWriteln(const S: string);
var
  NewStr: string;
begin
  SetLength(NewStr, Length(S));
  CharToOEM(PChar(S), PChar(NewStr));
  Writeln(NewStr);
end;

 var
   i,j, v: Integer;
   k : Boolean;
   r : TRegistry;
   l : TStringList;

begin
   r:=  TRegistry.Create;
   r.RootKey := HKEY_LOCAL_MACHINE;
   k := r.OpenKey('SYSTEM\CurrentControlSet\Control\Nls\CodePage', false);
   l := TStringList.Create;
   r.GetValueNames(l);
   for i := 0 to l.Count - 1
   do
     Begin
       if trystrtoint(l[i], v)
       then
         k := SetConsoleOutputCP(v);
         if k
         then
           begin
            Writeln(l[i]);
            Writeln('русский язык');
           end;
     end;
   r.CloseKey;
   r.Free;
   l.Free;
  Readln;
end.

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

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