Função de concordância

Delphi

07/10/2013

Olá pessoal, eu gostaria de saber se alguém sabe de uma função de concordância, por exemplo:

seu filho(a) > sua filha
do(a) Bahia > da Bahia

algo desce tipo. Se alguém tiver alguma coisa ficarei grato.
até mais.
Luis Flores

Luis Flores

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

07/10/2013

Você se refere ao tamanho do texto?
Se for, basta usar a função length:
if Length('do(a) Bahia') > Length('da Bahia') then
...
GOSTEI 0
Luis Flores

Luis Flores

07/10/2013

é que assim, não será apenas para essa palavras serão várias, eu gostaria de uma concordância dos estados do Brasil, do(a) ESTADO, compreende?
GOSTEI 0
Deivison Melo

Deivison Melo

07/10/2013

function TiraAcentos(Texto: string): string;
var
  Contar, Posicao: integer;
  Acentos, TiraAcentos: string;
begin

  Acentos := 'áäàãâÁÄÀÃÂéëèêÉËÈÊíïìîÍÏÌÎóöòõôÓÖÒÕÔúüùûÚÜÙÛçÇ(a)(o)+'; na mesma função
  TiraAcentos := 'aaaaaAAAAAeeeeEEEEiiiiIIIIoooooOOOOOuuuuUUUUcCao ';
  Result := '';

  for Contar := 1 to Length(Texto) do begin

    Posicao := Pos(Copy(Texto, Contar, 1), Acentos);
    if Posicao = 0 then
      Result := Result + Copy(Texto, Contar, 1)
    else
      Result := Result + Copy(TiraAcentos, Posicao, 1);
  end;
end;

Não testei porquê estou sem Delphi aqui em casa, mas eh por aí...

Qualquer coisa ajusto ela para vc em casa!!

Testa e sinaliza!

Abração e bons códigos!!
GOSTEI 0
Gustavo Bretas

Gustavo Bretas

07/10/2013

Luis, interessante o que vc quer... confesso que já precisei, mas como era somente para definir a função de funcionário(a), eu fiz usando case no sexo, acredito que se vc usar o conceito parecido com o de Valor por Extenso, pode ser que consiga chegar no resultado que vc quer!

Bom estuto, e boa sorte!
GOSTEI 0
POSTAR