八
八神庵
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormCreate(Sender: TObject);
begin
FISpeech:=CoVTxtAuto_.Create;
FISpeech.Register('[red]DEMO[/red]','DEMOA');
end;
//为什么我的程序当'[green][/green]DEMO'为空时,则整句朗读，不为空时则单字朗读(而且可以读中文，但读中文时后面会加入一句"[blue]CTS=Normal[/blue]".怎样清除这一句？)
procedure TForm1.btnReadClick(Sender: TObject);//开始朗读
begin
FISpeech.Speak(MemText.Lines.Text,vtxtst_READING);
end;
//怎样才能使其不读中文,只读英文.或[red]只读英文,不读中文[/red]?
begin
FISpeech:=CoVTxtAuto_.Create;
FISpeech.Register('[red]DEMO[/red]','DEMOA');
end;
//为什么我的程序当'[green][/green]DEMO'为空时,则整句朗读，不为空时则单字朗读(而且可以读中文，但读中文时后面会加入一句"[blue]CTS=Normal[/blue]".怎样清除这一句？)
procedure TForm1.btnReadClick(Sender: TObject);//开始朗读
begin
FISpeech.Speak(MemText.Lines.Text,vtxtst_READING);
end;
//怎样才能使其不读中文,只读英文.或[red]只读英文,不读中文[/red]?
]