ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от Andres

Ребят, как в Турбо Паскаль 7.0 писать на русском?
Тоесть смотрите например:

Код:

program test;
const
   text='Не важно';
begin
   writeLn(text);
end.

Так вот, в самой программе когда переставляешь на рус.язык, оно просто не переставляеться, точнее переставляеться, но пишеться всеравно на ENG.

Ну так как же можно вот эту часть "тела" программы: " 'Не важно' " - сделать на русском/украинском?!

Делай так

Код:

program test;

function AnsiToDos(mes: String):String;
var
  i: Word;
begin
  for i := 1 to length(mes) do
    case mes[i] of
      'А'..'п': mes[i] := Chr(Ord(mes[i]) - 64);
      'р'..'я': mes[i] := Chr(Ord(mes[i]) - 16);
      Chr(168): mes[i] := Chr(240);
      Chr(184): mes[i] := Chr(241);
    end;
  //для Delphi надо так:
  //Result := mes;
  //Для Пискаля так:
  AnsiToDos := mes;
end;

const
   text='Не важно';
begin
   writeLn(AnsiToDos(text));
end.

2 0verbreaK

Цитата:

Переводи с помощью штирлица в дос кодировку и вставляй в исходник, с помощью блокнота.

Это ты что то сильно загнул.