Fórum Função de concordância #457730

07/10/2013

0

Delphi

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

Responder

Posts

07/10/2013

Joel Rodrigues

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

Gostei + 0

07/10/2013

Luis Flores

é 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?
Responder

Gostei + 0

07/10/2013

Deivison Melo 

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!!
Responder

Gostei + 0

07/10/2013

Gustavo Bretas

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!
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar