Comparação de duas Strings no Delphi (Busca por similaridade)

[Alpha-X]

Olá pessoal,

tenho um array String e preciso fazer uma busca para encontrar a palavra que seja mais similar a palavra digitada pelo usuário.

Tentei algumas funções mas nao consegui o que quero, alguem pode me dar uma sugestão de como resolver isso?

[]s

Alpha-X

[EduardoS]

Tive um problema parecido no trabalho, não criei a solução, apenas pensei em uma, talvez a ideia te ajude...

O problema é definir o que é mais parecido, pensei em fazer uma função que retorna um float de 0 (totalmente diferente) a 1 (igual). A função compara as duas palavras letra a letra, os passos seriam mais ou menos esses:

1) Começa com um indice para cada palavra apontando a primeira letra de cada palavra ("i" e "j") e com um contador de diferenças ("d");

2) Se a letra apontada pelos dois contadores forem iguais incremente os dois contadores e repita esse passo até o fim das palavra.

3) Se for o fim da palavra va para o passo 5.

4) Se for diferente descubra palavra1 == palavra2[j] com o menor valor de i + j (sim, os valores de i e j devem variar, mas devem sempre ser maiores d que quando entraram nesse passo). Some a d a diferença entre o i + j que você achou com o i + j inicial.

5) O resultado é 1 - (d / (soma do número de caracteres das palavras)).

obs: Como não existe um critério fixo para saber se duas palavras são parecidas, você pode considerar alguns caracters como "c" e "ç" iguais ou quase iguais.