Курсовая работа: Программа для перевода текстов с транслита

try

memCyr.lines.LoadFromFile(OpenDialog.FileName);

except

showmessage('Неверный формат фаила!!!');

end;

end;

· Кнопка (Сохранить текст из окна кириллици) acSaveCyr

Выполняет диалог SaveDialog и сохраняет поле memCyr в файл.

Листинг 6. «Обработчик события нажатия на кнопку Сохранить»

procedure TMainForm.acSaveCyrExecute(Sender: TObject);

begin

if openDialog.execute then

memCyr.lines.SaveToFile(OpenDialog.FileName);

end;

· Кнопка (перевести с кириллици в латиницу) acCyrToLat

Очищает поле memLat и заносит в него текст переведенный в транслит. Данный алгоритм будет рассмотрен в части «Основные алгоритмы»

Коды обработки событий нажатия кнопок сохранения и загрузки для memLat (поле ввода латиници) идентичны приведенным выша, за исключением входного и выходного полей (memLat)

Процедуры обработки событий главного меню:

· Меню «Файл»

o «Открыть фаил в окно кириллици»

acCyrOpen

o «Открыть фаил в окно латиници»

acLatOpen

o «Сохранить текст из окна кириллици»

acSaveCyr

o «Сохранить текст из окна латиници»

acSaveLat

o «Выход»

Закрывает главную форму.