Hola, tengo el siguiente problema: estoy haciendo un ejercicio para la facultad que consiste en un bingo, el cual tira bolas cuando se apreta un botón. La idea es que cuando tira una bola se reproduzca un sonido con el numero que salio. El tema es que,como los sonidos se deben reproducir en intervalos de tiempos cortos no se escuchan todos los números sólo alguno cada tanto. Por lo que estube viendo tendría que cargarlos a la memoria pero no se bien como hacerlo y son 90 sonidos que debo poder localizar por su nombre.
El código hasta ahora sería:
procedure sonido(num:integer);
var
Path:string;
begin
path:='C:\Users\Paulau\Desktop\DelphiProgramas\Lotería Familiar\'+inttostr(num)+'.wav';
sndPlaySound(pchar(path),SND_NODEFAULT or SND_Sync);
end;
y
procedure TFrmInicial.BotonPlayClick(Sender: TObject);
begin
if columna < 9 then
begin
LbComenzar.Caption:='';
if int(bolassacadas/(columna+1)) >8 then
begin
columna:=columna+1;
fila:=0;
end;
auxiliar:=numero;
grillaNumeros.Cells[columna,fila]:=inttostr(auxiliar);
NumeroBola.Caption:=inttostr(auxiliar);
sonido(auxiliar);
fila:=fila + 1;
end;
end;
Alguien me puede guiar? por favor traten de hacerlo con vastante detalle porque entoy aprendiendo y tengo una base bastante floja
Desde ya muchas gracias