Ошибка: Failed to parse the Currency Converter XML document.
$12 662.96


Ошибка: Failed to parse the Currency Converter XML document.
$2 275.12


Ошибка: Failed to parse the Currency Converter XML document.
$26 924.97


Изменение регистра

В Delphi есть три функции для изменения регистра: upcase, lowercase, uppercase. Но они работают только для латинского алфавита. Чтобы сделать аналогичные функции для русского алфавита я использовал то, что в кодировке Windows — 1251 буквы расставлены по алфавиту, как большие, так и маленькие. То есть номер большой буквы связан с номером маленькой константой. И в русском, и в английском алфавитах маленькие буквы находятся за большими с разностью в 32 символа.

Здесь реализованы четыре функции: upcase и locase для изменения регистра одного символа, и uppercase и lowercase для изменения регистра строки


function UpCase(ch: char): char;
begin
  if (ch in [«a»..«z», «а»..«я»]) then
    result := chr(ord(ch) — 32)
  else
    result := ch;
end;

function LoCase(ch: char): char;
begin
  if (ch in [«A»..«Z», «А»..«Я»]) then
    result := chr(ord(ch) + 32)
  else
    result := ch;
end;

function UpperCase(s: string): string;
var
  i: integer;
begin
  result := s;
  for i := 1 to length(result) do

    if (result[i] in [«a»..«z», «а»..«я»]) then
      result[i] := chr(ord(result[i]) — 32);
end;

function LowerCase(s: string): string;
var
  i: integer;
begin
  result := s;
  for i := 1 to length(result) do
    if (result[i] in [«A»..«Z», «А»..«Я»]) then
      result[i] := chr(ord(result[i]) + 32);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  s = «zZцЦ.»;
var
  i: integer;
begin
  Form1.Caption := «DownCase: »;
  for i := 1 to Length(s) do
    Form1.Caption := Form1.Caption + LoCase(s[i]);
  Form1.Caption := Form1.Caption + « UpCase: »;
  for i := 1 to Length(s) do
    Form1.Caption := Form1.Caption + UpCase(s[i]);
  Form1.Caption := Form1.Caption + « UpperCase: » + UpperCase(s);
  Form1.Caption := Form1.Caption + « LowerCase: » + LowerCase(s);
end;

 

Интересное

Сущность ООП
Одна из вещей, которую вы могли бы захотеть реализовать — пользовательский интерфейс, предоставляющий доступ к файлу персональных данных. ООП предоставляет вам безусловно лучшие механизмы для его...
Подробнее...
Oпасное возвращение червя...
RogueMario.A — это червь, который демонстрирует базовую версию широко известной игры Super Mario. Он делает это для того, чтобы скрыть свою вредоносную деятельность. «Представьте, что...
Подробнее...
Сущность ООП
Одна из вещей, которую вы могли бы захотеть реализовать — пользовательский интерфейс, предоставляющий доступ к файлу персональных данных. ООП предоставляет вам безусловно лучшие механизмы для его...
Подробнее...
Удаление неиспользуемых...
Известно ли вам, что до тех пор, пока не удалить драйвер в Windows XP, он будет впустую расходовать системные ресурсы? Ниже дана пошаговая инструкция, которая поможет увидеть и удалить ненужные...
Подробнее...
Стерилизатор воздушный сухожаровой шкаф 40 спу www.amedisin.ru.
Как раскрутить форум и...
Скажу сразу в начале статьи, что если вы не хотите работать над своим форумом, то и эту заметку читать не надо. Документ содержит лексику специфичную для людей, которые занимаются т.н. «раскруткой...
Подробнее...
Хакеры: Приёмы взлома.
Согласно недавнему опросу, проведённому в США, обычные граждане боятся хакеров больше, чем обычных преступников. Интересно, что высокие технологии входят в нашу жизнь очень быстро и становятся её...
Подробнее...
Какой софт нужен для...
Что нужно настоящему веб-мастеру для полноценной работы? Совсем немного. В этой статье я опишу весь soft, который нужен для нормальной работы web-мастеров.1) Правильный выбор HTML-редактора.В наше...
Подробнее...
Работаем с рабочим столом
Привет! Сегодня мы будем работать с тем, что постоянно видим на экране своего монитора, а именно со своим рабочим столом. Не буду сильно болтать о том о сем а сразу же начну с полезных примеров....
Подробнее...
Вклады
Выбор депозита – ответственная и сложная задача! 
Подробнее...
Запуск несколкьих...
Введение: Virtual Server 2005 R2 позволяет размещать на сервере гостевые операционные системы. При работе с несколькими виртуальными машинами могут возникнуть некоторые сложности.Мы вам уже...
Подробнее...