Код:
if sv.Strings[i] = '.-' then if vs then s:= s + 'а' else s:= s + 'a';
if sv.Strings[i] = '-...' then if vs then s:= s + 'б' else s:= s + 'b';
if sv.Strings[i] = '.--' then if vs then s:= s + 'в' else s:= s + 'w';
if sv.Strings[i] = '--.' then if vs then s:= s + 'г' else s:= s + 'g';
if sv.Strings[i] = '-..' then if vs then s:= s + 'д' else s:= s + 'd';
if sv.Strings[i] = '.' then if vs then s:= s + 'е' else s:= s + 'e';
if sv.Strings[i] = '...-' then if vs then s:= s + 'ж' else s:= s + 'v';
if sv.Strings[i] = '--..' then if vs then s:= s + 'з' else s:= s + 'z';
if sv.Strings[i] = '..' then if vs then s:= s + 'и' else s:= s + 'i';
if sv.Strings[i] = '.---' then if vs then s:= s + 'й' else s:= s + 'j';
if sv.Strings[i] = '-.-' then if vs then s:= s + 'к' else s:= s + 'k';
if sv.Strings[i] = '.-..' then if vs then s:= s + 'л' else s:= s + 'l';
if sv.Strings[i] = '--' then if vs then s:= s + 'м' else s:= s + 'm';
if sv.Strings[i] = '-.' then if vs then s:= s + 'н' else s:= s + 'n';
if sv.Strings[i] = '---' then if vs then s:= s + 'о' else s:= s + 'o';
if sv.Strings[i] = '.--.' then if vs then s:= s + 'п' else s:= s + 'p';
if sv.Strings[i] = '.-.' then if vs then s:= s + 'р' else s:= s + 'r';
if sv.Strings[i] = '...' then if vs then s:= s + 'с' else s:= s + 's';
if sv.Strings[i] = '-' then if vs then s:= s + 'т' else s:= s + 't';
if sv.Strings[i] = '..-' then if vs then s:= s + 'у' else s:= s + 'u';
...
Впечатляет. Не устал копировать?
