Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 1 150

/ вопрос решён /

Доброго времени суток, уважаемые эксперты!
Подскажите, пожалуйста, самый быстрый способ получить массив из русского алфавита(по одной букве в ячейке).
Заранее спасибо.

Полушин Сергей Анатольевич Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: Полушин Сергей Анатольевич (статус: Посетитель)
Вопрос отправлен: 28 ноября 2007, 20:04
Состояние вопроса: решён, ответов: 3.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, Полушин Сергей Анатольевич!
Учитывая, что в кодовой таблице они стоят по алфавиту, то очень просто. Где то так

var a:array [0..31] of char;
i:byte;
begin
  for i:=0 to 31 do
    a[i] := chr(ord('А')+i);
end;
Буква "А" - русская. Для маленьких букв догадаетесь как

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 28 ноября 2007, 20:24
Оценка за ответ: 5

Ответ #2. Отвечает эксперт: Николай Рубан

Здравствуйте, Полушин Сергей Анатольевич!

Есть еще и такой вариант:

var lit:array ['а'..'я'] of char;
c:char;
begin
  for c:='а' to 'я' do  
          lit[c]:= c;
end;

Массив lit - будет содержать маленькие русские буквы.

Ответ отправил: Николай Рубан (статус: 10-ый класс)
Время отправки: 28 ноября 2007, 20:33
Оценка за ответ: 5

Ответ #3. Отвечает эксперт: min@y™

А на этапе проектирования сделать массив-константу не проще?

type
  TAlphabet = array[0..31] of Char; // Или string[32]
 
const
  RussianUp: TAlphabet = 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  RussianDn: TAlphabet = 'абвгдежзийклмнопрстуфхцчшщъыьэюя';
 
var
  Index: Integer;

Теперь можно обращаться к этим массивам по индексу, например, RussianUp[Index].

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 29 ноября 2007, 08:24
Оценка за ответ: 4


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 28 ноября 2007, 21:27; участников в обсуждении: 1.
Полушин Сергей Анатольевич

Полушин Сергей Анатольевич (статус: Посетитель), 28 ноября 2007, 21:27 [#1]:

Мне даже понравились ваши решения. Какие-то они красивые... Оба

31 января 2011, 20:02: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 12 декабря 2017, 21:06
Выполнено за 0.07 сек.
Рейтинг@Mail.ru