-
Всем привет! Помогите как сделать так что бы Delphi озвучивала символы (точка, тире) (как в морзе) (например я написал текст •−−• •−• •• •−− • − отправил и он автоматически озвучил) (надеюсь понятно описал свой вопрос)
-
uses MMSystem;
………
s := '.--. .-. .. .-- . -';
for i := 1 to Length(s) do begin
case s[i] of
'.':
PlaySound('tochka.wav', 0, 0);
'-':
PlaySound('tire.wav', 0, 0);
' ':
PlaySound('pause.wav', 0, 0);
end;
end;
-
>RWolf © (08.09.18 19:39) [1]
-
>Choose_Goose (07.09.18 21:33) [0]
> Всем привет! Помогите как сделать так что бы Delphi озвучивала символы (точка, тире) (как в морзе) (например я написал текст •• •• •• • • отправил и он автоматически озвучил) (надеюсь понятно описал свой вопрос)
-
>RWolf © (08.09.18 19:39) [1]
>
> uses MMSystem;
>
> ………
>
> s := '.--. .-. .. .-- . -';
>
> for i := 1 to Length(s) do begin
> case s[i] of
> '.':
> PlaySound('tochka.wav', 0, 0);
> '-':
> PlaySound('tire.wav', 0, 0);
> ' ':
> PlaySound('pause.wav', 0, 0);
> end;
> end;
|
Есть новые 
Нет новых [134427 +29][b:0][p:0.001]