Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
spam
16 / 16 / 2
Регистрация: 19.12.2008
Сообщений: 89
18.12.2009, 18:39

Delphi и кириллица - Delphi

18.12.2009, 18:39. Просмотров 10992. Ответов 5
Метки (Все метки)

Вот вам функция:

Код
function Rus(mes: string):string;
// В ANSI русские буквы кодируются числами от 192 до 255,
// в ASCII - от 128 до 175 (А..Яа..п) и от 224 до 239 (р..я).
  var
    i: integer; // номер обрабатываемого символа
  begin
    SetLength(Result,length(mes));
    for i:=1 to length(mes) do
      case mes[i] of
        'А'..'п' :Result[i] := Chr(Ord(mes[i]) - 64);
        'р'..'я' :Result[i] := Chr (Ord(mes [i] ) -16);
        else Result[i]:=mes[i];
      end;
  end;

http://www.cyberforum.ru/delphi-beginners/thread652450.html
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2009, 18:39
Темы с ответами и решениями для Delphi Delphi и кириллица:

Какова разница работы одного кода в Delphi 7 и в Delphi XE5?
Почему приложение состоящие из одинакового кода, но компилируемое в разных...

где найти delphi c компилятором? и с чего начинать программирование в delphi?
здравствуйте, вот начинаю изучать delphi с чего начинать лучше?

Почему функция работающая в Delphi 7 не работает в Delphi 2007 и в 2009 ??
Данный код работал нормально в D7: procedure TForm1.Button1Click(Sender:...

Как в Delphi сделать Excel таблицу, не употребляя компонент TStringGrid и связать ее с Delphi
Как в Delphi сделать Excel таблицу, не употребляя компонент TStringGrid и...

0
Delphi и кириллица Delphi   Следующее сообщение темы 
Другие темы раздела
Delphi Определить порядковые номера двух наименьших эллементов последовательности. http://www.cyberforum.ru/delphi-beginners/thread76257.html
Экзамен у меня... Ну помогите((((((((((((( Добавлено через 48 секунд Определить порядковые номера двух наименьших эллементов последовательности.
Delphi делфи п-а-м-а-а-а-а-а-г-и-и-и-и-т-е, построить матрицу, строками и столбцами которой являются, соответственно, столбцы и строки исходной матрицы.!!!!! http://www.cyberforum.ru/delphi-beginners/thread76233.html
Delphi Вычислить значение выражения
Джентельмены без вашей помощи не обойтись....выручайте.....В понедельник сдача..... а я в Delphi не шарю нифига надо решить 5 заданий....помогите...задание вприципе думаю простецкие....но не умею...
Требуеться поддержака.... Delphi
Джентельмены без вашей помощи не обойтись....выручайте.....В понедельник сдача..... а я в Delphi не шарю нифига надо решить 5 заданий....помогите...задание вприципе думаю простецкие....но не умею...
Delphi ЭКЗАМЕН!!!! http://www.cyberforum.ru/delphi-beginners/thread76222.html
Помогите!!!!!! Кто сможет сейчас помочь???
Delphi Подсчитать количество и порядковый номер элементов массива Помогите решить задачу, массив задается в StringGrid: "Подсчитать количество и порядковый номер элементов массива кратных числу 3" подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru