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


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


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


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

В 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;

 

Интересное

Сомневаетесь в Windows...
Windows Vista в виртуальной машинеВ последнее время внимание всего околокомпьютерного сообщества было приковано к готовящемуся окончательному релизу операционной системы Windows Vista. И вот,...
Подробнее...
Средства безопасности...
Windows XP считается самой надежной и безопасной пользовательской ОС от Microsoft. Но всегда полезно знать, как устроена и функционирует ее система безопасности. Ведь обладая такими знаниями, мы...
Подробнее...
Сжатие данных на PHP
Многие броузеры поддержывают gzip сжатые файлы в «прозрачном» для пользователя режиме.Для текстовых файлов (html страниц) коефициент сжатия этим методом составляет 0.2-0.3, т.е. данные сжимаются в...
Подробнее...
Для чего служит .htaccess?
Набирая адрес в строке браузера, вы получаете на свой компьютер файлы, которые отображает браузер. Управление тем, какие файлы и как вам показывать (пересылать) осуществляет веб-сервер. Наиболее...
Подробнее...
Стерилизатор воздушный сухожаровой шкаф 40 спу www.amedisin.ru.
Увеличение скорости...
Когда вы соединяетесь с web-узлом, компьютер обменивается с ним информацией. Часть этой информации связана с выяснением IP-адреса узла. Фактически, протокол TCP/IP имеет дело не словами. Каждому...
Подробнее...
Cмешение цветов с помощью...
Привет всем. Сегодня мы будем писать програмку, которая может размыть картинку.Бросай на форму Timage и Tbutton имена оставь по умолчанию, создавай событие button1.click
Подробнее...
Зачем сайту нужна раскрутка?
Во-первых, раскрутка сайта — это наиважнейший процесс для любого сайта в Интернете, независимо от предназначения сайта. И раскрутку сайта нельзя лишь попутно затронуть. О ней нельзя рассказать в...
Подробнее...
Простое восстановление данных
Ниже описываются методы восстановления данных с исправных носителей, которыми можно овладеть за минимальное время, не обладая специальными знаниями в этой области.Случилось страшное:Совершенно...
Подробнее...
ШРИФТ
Удобочитаемость шрифта.Удобочитаемость является одним из важнейших достоинств хорошего шрифта. Это не только общая оценка пригодности его формы, но и показатель красоты. На удобочитаемость влияют...
Подробнее...
Хороший дизайн должен...
Хороший дизайн является не роскошью, а необходимостью. С каждым днем количество веб-сайтов увеличивается все больше и больше. Общий уровень дизайнерской грамотности постоянно повышается, а...
Подробнее...