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

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

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

Вопрос задал: Полушин Сергей Анатольевич (статус: Посетитель) Вопрос отправлен: 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;

Ответ отправил: Николай Рубан (статус: 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;

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

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

Полушин Сергей Анатольевич (статус: Посетитель), 28 ноября 2007, 21:27 [#1]: Мне даже понравились ваши решения. Какие-то они красивые... Оба

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

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