Я хочу, чтобы Сапи говорил строку, но в алфавитном порядке.
Я пытался сделать несколько процедур, получая первые и последние буквы строки и заставляя компонент произносить каждую букву отдельно, это работает, но яЯ не фанат создания некрасивого кода.Я также пытался вставить символ в строку, но я получил его только для работы с маленькой строкой.
Мне удалось заставить его говорить в алфавитном порядке при нажатии кнопки, используя основную идею:
procedure TForm1.Button1Click(Sender: TObject);
var
First,
Second,
Third,
Fourth,
Fifth,
S:String;
begin
First:=Label1.Caption[1];
Second:=Label1.Caption[2];
Third:=Label1.Caption[3];
Fourth:=Label1.Caption[4];
Fifth:=Label1.Caption[5];
S:=First+' . '+Second+' . '+Third+' . '+Fourth+' . '+Fifth;
Voice.Speak(S,0);
end;
Я хочу использовать любой параметр в Sapi, который сделает всю работу за меня.Пример: уметь произносить 'ABCDEFG', не пытаясь произнести слово в строке.