Здравствуйте. Я пишу программу по переводу текстовой информации в азбуку морзе. Сделал вывод результата в виде символов и звуков системного динамика, и еще хочу добавить возможность вывода звука с помощью проигрывания файлов midi. Как можно дописать в результирующий midi файл еще один. Код привожу ниже:
| Код |
procedure CodeToMorse_zvuk(code:string);
var
f1: TStringList;
count:integer;
position: integer;
begin
count := Length(Code);
Inc(count);
position := 0;
while position < count do
begin
case Code[position] of
'*': ; // точка - тут дописываем в результат tochka.mid
'-': ; //тире - тут дописываем в результат tire.mid
' ': ; // пробел - тут дописываем в результат probel.mid
end;
inc(position);
end;
end;
|
|