Delphi. Трюки и эффекты - читать бесплатно онлайн полную версию книги автора Валерий Викторович Борисок (ч. 465)

...

Листинг 12.4.
Вспомогательные функции преобразования регистра букв
function TfmSubstitution.UpCaseRus(Ch: Char): Char;
begin
if Ch = \'ё\' then Ch := \'Е\
if Ch in [\'а\'..’я’] then Dec(Ch, 32);
Result := Ch;
end;
function TfmSubstitution.LowCaseRus(Ch: Char): Char;
begin
if Ch = \'Ё\' then Ch := \'е\
if Ch in [\'А\'..’Я’] then Inc(Ch, 32);
Result := Ch;
end;

Теперь рассмотрим работу обработчика события формы OnCreate и обработчика события кнопки OnClick. Первый сначала инициализирует редактор значений полями, для которых будут задаваться данные. После того как все поля созданы, вызывается функция генерации случайной перестановки, которая, в свою очередь, заполняет все поля редактора значений необходимыми данными. Второй же обработчик только вызывает функцию генерации случайной перестановки. В листинге 12.5 приведен исходный код данных методов.