Zitat von
MisterNiceGuy:
Code:
case zeile[buco] of
'a' : begin
MP1.FileName := '/a.wav';
MP1.Play;
end;
'b' : begin
MP1.FileName := '/b.wav';
MP2.Play;
end;
'd' : begin
MP1.FileName := '/d.wav';
MP1.Play;
end;
Ich hab einige Buchstaben rausgenommen, da es sonst zu viel Text ist...
Okay, den case bei c wegen z.B. ch ist okay, aber warum machst Du nicht folgendes:
Delphi-Quellcode:
case zeile[buco] of
c: begin
...
end;
// alle weiteren spezialverhalten
else
begin
MP1.FileName := zeile[buco] + '.wav';
MP1.Play;
end;
end;
... ich meine, wenn der Buchstabe eh schon Teil vom Dateinamen ist, warum dann so viel tippen und nicht einfach dynamisch zusammenbauen?
