Programação em Delphi

Esta página tem como intuito compartinlhar códigos/scripts úteis no dia-a-dia do programador Delphi. Perguntas e sugestões são bem-vindas. O administrador.
1. Função para retirar acentos de palavras no DELPHI

Na Unit do formulário defina a função

function TiraAcentos(Texto: String): String;

dentro de private ou public declarations, ou mesmo abaixo de implementation.

Depois construa a função abaixo no corpo do programa chamando o nome do formulário em que ela está sendo criada. Veja o exemplo:

function TForm_Nome.TiraAcentos(Texto: String): String;
const
sLetraA = 'áéíóúàèìòùâêîôûäëïöüãõñçÁÉÍÓÚÀÈÌÒÙÂÊÎÔÛÄËÏÖÜÃÕÑÇ';
sLetraB = 'aeiouaeiouaeiouaeiouaoncAEIOUAEIOUAEIOUAEIOUAONC';
var
i: Integer;
begin
for i := 1 to Length(sLetraA) do
Texto := StringReplace(Texto, sLetraA[i], sLetraB[i], [rfReplaceAll];
end;

Pronto, para usar a função basta chamá-la no corpo do programa.

Fonte: Delphi Basics – http://www.delphibasics.co.uk/

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s