Hallo!
Vor kurzem habe ich angefangen ein Programm zu schreiben, dass den Text, den man in ein Edit-Feld eintippt in MorseCode sprache wieder ausgibt. Unzwar mit einer Tonausgabe.
Nun zu meinem Problem:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
Lange := length(edit1.text);
for i := 1 to Lange do
begin
if edit1.Text[i] = 'A' then
begin
sndPlaySound('piepkurz.wav', SND_ASYNC);
sndPlaySound('pieplang.wav', SND_ASYNC);
end;
end;
end; |
Füre ich das Program aus und gebe ein großes A in das Edit-Feld ein und drücke den Button spielt er mir einfach die beiden Piep Töne direkt hintereinander aus. Es gibt keine Pause dazwischen. Wie kann ich im Prinzip zwischen die beiden Piep töne eine Pause einfügen ?
Elundril
