*.wav

← →
sagchat © (2003-05-14 12:26) [0]

У меня есть 3 файла *.wav
Как мне по нажатию на кнопку проигрывать каждый раз другой

← →
NickBat © (2003-05-14 12:31) [1]

Path[1]="mywav1.vaw";
Path[2]="mywav2.vaw";
Path[3]="mywav3.vaw";

Ввести счетчик нажатий на кнопку.
if count=4 then count:=1;

← →
Ru © (2003-05-14 12:32) [2]

хранить номер/имя последнего проигранного и в следующий раз проигрывать следующий номер. Сохранить в ини или текстовый файл. Соответственно имя вавов должны содержать нумерацию.

← →
Palladin © (2003-05-14 12:32) [3]

образование высшее

NickBat
Что то не получается, можешь по подробнее?

> образование высшее

Может не техническое? :))
Поподробнее? Куда уж подробнее. :)) Хотя...

var
count: integer;

procedure formCreate ()
...
count:=1;
...

procedure button1click();
begin
Играем файл Path[count];
count:=count+1;
if count=4 then count:=1;
end;

Дельфи сейчас под руками нет, как называется функция проигрывания звуковых файлов не помню.

F1 - тебе поможет.

*.wav Найти похожие ветки