Correção Ortográfica No Delphi

[Maryllene]

Olá pessoal,

Sou participante de outros fóruns de Delphi e encontrei esta dica e achei válido postar aqui pra todos nós.

Ainda não testei, mas espero que alguém possa fazê-lo e dar opiniões sobre o assunto.

Atenciosamente

Maryllene

*****************************************************************************************

Em sistemas onde o usuário precisar digitar textos como observações, emails um diferencial para a aplicação seria que o texto pudesse ser corrigido ortograficamente. Então você pode se perguntar... como faço isso ?

A resposta é: Speller

O Speller é um componente não visual que poder adicionar o recurso de correção ortográfica a qualquer aplicação. O dicionário utilizado é o ISpell, que é free.

Instalando o Speller

Primeiramente precisamos baixar o arquivo TSpellers.zip que encontra-as em http://www.luziusschneider.com/SpellerHome.htm , é preciso também realizar o download o dicionário para português do Brasil. O arquivo chama-se ISpGaItPoSp.exe e pode ser encontrado em http://www.luziusschneider.com/Speller/English/index.htm.

Se desejar, baixe todos os arquivos e um exemplo clicando aqui.

Instale o dicionário antes de instalar o componente.

Para instalar o componente siga os passos:

1 – Descompacte o arquivo, a pasta TSpellers será criada.

2 – Adicione o caminho da pasta no Library do Delphi, indo em Tools->Environment Option -> Library

3 – No delphi, abra o pacote de runtime SpellersRT7.dpk, veja que existe um para cada versão de delphi, e compilo o pacote

4 – Faça o mesmo para o pacote de design, chamado SpellersD6.dpk, veja que também possui um para cada versão do delphi, compile o pacote e então clique em Install.

Será adicionada à paleta de componentes uma guia LS contento dois componentes, SpellChecker e SpeelLanguageComboBox, conforme visto na Figura 1.

Figura 1. Componentes LS

Usando o corretor

Para construir o exemplo vou utilizar o Delphi 2006, porém sinta-se livre para utilizar a versão que você possuir.

Inicie um novo projeto do tipo VCL Forms Application. No formulário principal adicione um painel, configurando sua propriedade Align para alTop. Ao painel insira um TSpellLanguageComboBox , insira também um botão no painel, mudando seu caption para ‘Correção ortográfica’.

Ao formulário adicione um TMemo e configure a propriedade Align para alClient, e mude sua proprieda HideSelection para False. Arraste para o formulário o componente TSpellChecker. O formulário da aplicação deve se parecer com a Figura 2.

Figura 2. Exemplo de TSpellChecker

Ligue o SpellLanguageComboBox1 ao SpellChecker1 através da propridade SpellChecker. No evento onClick do botão adicione o código da Listagem 1.

Listagem 1. Evento onClick

procedure TForm1.Button1Click(Sender: TObject);

begin

Spellchecker1.Check(Memo1);

end;

No evento onShow do formulário vamos configurar a língua padrão para o português do Brasil mudando a posição do SpellLanguageComboBox1 para 3, conforme Listagem 2.

Listagem 2. Definindo língua padrão

procedure TForm1.FormShow(Sender: TObject);

begin

SpellLanguageComboBox1.ItemIndex := 3;

end;

Execute a aplicação, digite qualquer coisa grafada incorretamente e clique no botão “Correção Ortográfica”, você verá a tela da Figura 3.

Figura 3. Corretor em ação

Melhorando o visual

Veja que a janela de correção (Figura 3) está toda em inglês. Existe a possibilidade de traduzi-la para o português. O TSpellChecker oferece algumas variáveis públicas que podem ser alteradas durante execução e só são utilizadas quando a propriedade UserLanguage é configurada para ulOther.

Adicione o código da Listagem 3 no evento onCreate do formulário e execute a aplicação e você que agora tudo foi traduzido.

Listagem 3. Traduzindo

procedure TForm1.FormCreate(Sender: TObject);

begin

spOVariants := '&Variantes';

spODelete := '&Deletar';

spOChange := '&Alterar';

spOChangeAll := 'Alterar &Todas';

spOSkip := '&Ignorar';

spOSkipAll := 'I&gnorar Todas';

spOAdd := 'In&cluir';

spOCancel := 'Ca&ncelar';

spOCancelEdit := 'Desfa&zer Edição';

spONotFound := 'Palavra desconhecida';

spOHyphen := 'Hifenização incorreta';

spOCaps := 'Erro em Maiúsculas';

spOAbbrev := 'Possivel abreviação';

spONoSentenceCap := 'Erro em maíusculas da sentença';

spOExtraSpaces := 'Espaços extras';

spOMissingSpace := 'Falta de espaço';

spOInitialNumeral := 'Numerais no início da palavra';

spORepeatedWord := 'Palavra repetida';

spOFinish := 'Correção ortográfica concluida';

spOFinishCaption:= 'Mensagem';

spOCaption := 'Verificando — %s';

spOError := 'Erro de verificação No %d';

spOErrorLoad := 'Erro ao carregar DLL %s';

spOErrorUnload := 'Erro ao descarregar DLL %s';

spOErrorNoSpellChecker := 'Idioma %s não instalado';

spOStart := 'Iniciar';

Spellchecker1.UserLanguage := ulOther;

end;

Conclusão

Esta aí uma ferramenta simples, fácil de usar e que pode agregar algum diferencial em suas aplicações. Até a próxima !

Paulo Roberto Quicoli

Paulo Roberto Quicoli (pauloquicoli@gmail.com) é analista e programador da Control-M Informática. Trabalha com Delphi, desde sua primeira versão, e Firebird desenvolvendo aplicações cliente-servidor. Formado em Tecnologia de Processamento de dados pela FATEC, na cidade de Taquaritinga/SP