Дешифратор азбуки морзе

[Aliens_wolfs]

Ъ - знак у тебя кодировка какая?

Можно конечно и вот так сделать

procedure TForm1.Button1Click(Sender: TObject);
const
 RU_MZ: array['а'..'я'] of string=(' .- ',' -... ',' .-- ',' --. ',' -.. ',
 ' . ',' ...- ',' --.. ',' .. ',' .--- ',' -.- ',' .-.. ', ' -- ',' -. ',
' --- ',' .-.- ',' .-. ',' ... ',' - ',' ..- ',' ..-. ',' .... ',
' -.-. ',' ---. ',' ---- ',' --.- ',' символ для ъ ',' -.-- ',' -..- ',' ..-.. ',' ..-- ',' .-.- ');
var
s:string ;
i: integer;
begin
for i:=1 to Length(Mmo1.text) do
if Mmo1.text[i] in ['а'..'я'] then
S:=S+RU_MZ[Mmo1.text[i]];
Mmo2.Lines.Add(s);
end;

Из Морзе в символ нужно подумать

[Exibet179]

кстати только увидал для Ъ нет морзейки,над глянуть в нете.
Огромное спс за все =)