Delphi Pequeno Problema

[MS.Anon]

Olá galera, sou novo aqui no site como já devem ter visto e ultimamente começei a aprender DELPHI (ou seja sou iniciante ) então fiz um projeto básico so para aprender a usar as ferramentas, o projeto que desenvolvi você coloca sua idade clica sobre um botão e aparecerá se você é depentende, ou responsavel mas quero acrescentar quem tem maiores idades para aparecer no resultado 3° idade.
então fiz tudo correto na primeira parte so não consigo colocar o codigo para quem tem maior idade digamos 40.
o codigo ficou assim

begin
if StrToInt (edtIdade.Text) >= 18 then
lblResultado.Caption := 'Você é responsável'

else
lblResultado.Caption := 'Você é dependente' ;

end;

end.
como faso para colocar ali quem tem maior que 40 anos aparesa 3°idade ???
Grato.

[ncatarino]

não percebo nada de delphi mas deve de ser do genero:

begin
if StrToInt (edtIdade.Text) >= 18 then
lblResultado.Caption := 'Você é responsável'

else
if StrToInt (edtIdade.Text) =< 40 then
lblResultado.Caption := '3°idade'

else

lblResultado.Caption := 'Você é dependente' ;

end;

end.

[MS.Anon]

Eu vou testar para ve se funciona, mas obrigado pela ajuda

[MS.Anon]

Não deu amigo.
alguém mais pode dar uma dica.

[Klaud]

Tenta com o comando Case of assim:

case strtoint(editIdade.text) of
18..40 : showmessage('Voce é responsavel')
else
showmessage('Voce é depedente');
end;

Foi assim que entendi, se não pode mandar outra duvida.

[Soultt]

Acho que essa não é a melhor solução porem resolve:

If (strtoint(edtIdade.Text) >= 18) and (strtoint(edtIdade.Text) <= 40) then
lblResultado.Caption := 'Você é responsável'
else
begin
if strtoint(edtIdade.Text) > 40 then
lblResultado.Caption := '3ª idade'
else
if strtoint(edtIdade.Text) < 18 then
lblResultado.Caption := 'você é demenor';
end;

[MS.Anon]

Galera agradeço as ajudas e dicas ai mas não funcionou nenhum dos códigos.
o ultimo funcionou mas está tudo errado aparece que 40 anos e dependente 15 e 3°idade...
Quem mais puder ajudar ficaria muito grato.
obs: uso o object pascal lazarus.

[marcelocjr]

Utilize o Case.


Case ( Idade ) Of

1..17 : ShowMessage ( 'Você é dependente' );

18..40 : ShowMessage ( 'Você é Responsável' );

Else
ShowMessage ( 'Você é da 3ª Idade' );

End;

[Hc Espiao]

fiz apenas com o IF/THEN...

if strtoint(edit1.Text) >= 18 then
label1.Caption:= 'Voce é de maior';
if strtoint(edit1.Text) < 18 then
label1.Caption:= 'Voce é dependente';
if strtoint(edit1.Text) >= 40 then
label1.Caption:= 'Voce ja é 3 idade';

Tem outras soluções mais faceis, mas fiz por essa.

[MS.Anon]

Galera tentei mas não funcionou nenhum.
obs: uso o LAZARUS não sei se tem a ver com o problema.

[Lord Beni-Aretz]

Galera tentei mas não funcionou nenhum.
obs: uso o LAZARUS não sei se tem a ver com o problema.

Se não me engano o Lazarus é diferente a interação dele com os objetos.
faz horas que eu não mexo com ele...
pelo menos 1 ano.

[Soultt]

Galera agradeço as ajudas e dicas ai mas não funcionou nenhum dos códigos.
o ultimo funcionou mas está tudo errado aparece que 40 anos e dependente 15 e 3°idade...
Quem mais puder ajudar ficaria muito grato.
obs: uso o object pascal lazarus.

Claro que o problema é com o lazarus ou com os nomes dos edits que você colocou porque no meu codigo está claramente dizendo que "se <18 é demenor" ou seja de 0 à 17 ele vai aparecer demenor, revise os nomes dos edits.