windows.beep как остановить ?

[niikitos]

как не аварийно остановить воспроизведение звука ?

windows.Beep(1000,200);

[Stilet]

Никак. Эта функция неуправляема.

[niikitos]

Ладно, хоть за инфу спс.

А есть ли какая нибудь управляемая функция?

Для воспроизведение коротких недолгих звуков. Если точнее Азбуки Морзе.

[Stilet]

Если это короткие звуки, то зачем прерывать?
Сделай сопроцесс, в нем пропикивай этой функцией звуки. Если они не оч. длинные то ты всегда на любом пике сможешь прервать весь цикл.

[niikitos]

а если текст длинный ?

[Yurk@]

а какая разница длинный текст или нет .... "пикаешь" то ты только отдельные знаки а не ввесь текст одним "пиком"

[niikitos]

а разница в том пока весь текст не прослушаешь не остановиться..

[niikitos]

еще нужна помощь. когда текст воспроизводится то после пробета повторяется последний символ. в чем проблемам ?

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=edit1.Text;
for i:=1 to length(s) do
begin
 case s[i] of
  'a','A','À','à': t:='.-';
 'b','B','Á','á': t:='-...';
 'c','C','Ö','ö': t:='-.-.';
 'd','D','Ä','ä': t:='-..';
 'e','E','Å','å','¸','¨': t:='.';
 'f','F','Ô','ô': t:='..-.';
 'g','G','Ã','ã': t:='--.';
 'h','H','Õ','õ': t:='....';
 'i','I','È','è': t:='..';
 'j','J','É','é': t:='.---';
 'k','K','Ê','ê': t:='-.-';
 'l','L','Ë','ë': t:='.-..';
 'm','M','Ì','ì': t:='--';
 'n','N','Í','í': t:='-.';
 'o','O','Î','î': t:='---';
 'p','P','Ï','ï': t:='.--.';
 'q','Q','Ù','ù': t:='--.-';
 'r','R','Ð','ð': t:='.-.';
 's','S','Ñ','ñ': t:='...';
 't','T','Ò','ò': t:='-';
 'u','U','Ó','ó': t:='..-';
 'v','V','Æ','æ': t:='...-';
 'w','W','Â','â': t:='.--';
 'x','X','ü','ú': t:='-..-';
 'y','Y','Û','û': t:='-.--';
 'z','Z','Ç','ç': t:='--..';
 '×','÷': t:='---.';
 'Ø','ø': t:='----';
 'Ý','ý': t:='..-..';
 'Þ','þ': t:='..--';
 'ß','ÿ': t:='.-.-';

 '1': t:='.----';
 '2': t:='..---';
 '3': t:='...--';
 '4': t:='....-';
 '5': t:='.....';
 '6': t:='-....';
 '7': t:='--...';
 '8': t:='---..';
 '9': t:='----.';
 '0': t:='-----';

 '.': t:='......';
 ',': t:='.-.-.-';
 ':': t:='---...';
 ';': t:='-.-.-.';
 '?': t:='..--..';
 '!': t:='--..--';
 '/': t:='-..-.';
end;
for j:=1 to length (t) do
 if t[j]='.'
 then
  begin
  windows.Beep(1000,200);
  Application.ProcessMessages;
  sleep(200);
  end
 else
  if t[j]='-'
  then
   begin
   windows.Beep(1000,600);
   Application.ProcessMessages;
   sleep(200);
   end;
   sleep(400);

end;
end;

[VKBR]

вероятно из-за того, что символ пробела не прописан в case. думаю поможет, если добавить строчку в case:

' ': t:='';

или просто использовать какое-либо значение по-умолчанию

begin
 case s[i] of
  'a','A','À','à': t:='.-';
.
.
  '/': t:='-..-.';
 else
  t:='';
end;

В последнем случае любой символ, не прописанный в case, будет игнорироваться.