Jump to content
BHAMF

Independente se for maiúsculo ou minúsculo

Recommended Posts

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

 

Share this post


Link to post
Share on other 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

 

Edited by passarito
Correcção ortográfica
  • Vote 1

Share this post


Link to post
Share on other 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;

 

  • Vote 2

Knowledge is free!

Share this post


Link to post
Share on other 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!😆

Share this post


Link to post
Share on other 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;

 

  • Vote 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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.