Ir para o conteúdo
BHAMF

Independente se for maiúsculo ou minúsculo

Mensagens Recomendadas

BHAMF

Sempre me perguntei: Como receber o valor que eu quero independente da "posição em que as letras estejam"... Ex:

 

[...]
 //em vez de fazer isto:
  case A of
   'Sim' : Initial;
   'sIM' : Initial;  
   'SIM' : Initial;
   'sim' : Initial;
   'sIm' : Initial;
 [...]
  end;
 //Como faço, pra indepentende da "posição das letras", eu receber o mesmo valor?

Espero respostas :) obrigado desde já!

 

B.H.A.M.F, 31/05/2018 | 13:22 (Horário de Brasília)


Brenio Hallison A.M. Filho

 

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
passarito

Boas.

Conforme leias a variável A conforme a resposta.

Se leres com readln(A); então a opção será

For i:=1 to length(A) do A[i]:=upcase(A[i])
if A = 'SIM' then begin
	...
else
	...
end;

Também já li em qualquer lado que pode ser algo do género A:=upcase(A); mas não tenho a certeza que isso funcione com strings, sempre usei o upcase com caracteres.

 

Por outro lado se leres a variável A caracter a caracter então terás de elevar o caracter quando o leres

A:='';
Repeat
	ch:=upcase(readkey);
	A:=A+ch;
until ch=#13

 

Editado por passarito
Correcção ortográfica
  • Voto 1

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
thoga31
Em 04/06/2018 às 22:26, passarito disse:

For i:=1 to length(A) do A[i]:=upcase(A[i])

Também já li em qualquer lado que pode ser algo do género A:=upcase(A); mas não tenho a certeza que isso funcione com strings, sempre usei o upcase com caracteres.

@passarito, estamos em 2018, não em 1978 😂

A função upcase pode ser usada com caracteres e strings.

readln(linha);
linha := UpCase(linha);

if linha = 'SIM' then begin
   // doçura de código
end;

 

  • Voto 2

Knowledge is free! | Occasional Fortnite player

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
passarito
Em 07/07/2018 às 21:05, thoga31 disse:

@passarito, estamos em 2018, não em 1978 😂

Há gajos que só aparecem para me f.#$%.er a cabeça. Queres ver que levas com a bengala!😆

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
nunopicado

Eish, ainda levam os dois com a bengala... :D

É 2018, não 1956! Poupem nos comandos, p.f. :cheesygrin:

readln(linha);

if UpCase(linha) = 'SIM' then begin
   // doçura de código
end;

 

  • Voto 2

"A humanidade está a perder os seus génios... Aristóteles morreu, Newton já lá está, Einstein finou-se, e eu hoje não me estou a sentir bem!"

> Não esclareço dúvidas por PM: Indica a tua dúvida no quadro correcto do forum.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.