Edit, como osso resolver estes problemas.

20/12/2007

2

Preciso fazer uma função que deva apresentar os seguintes resultados:

Se um valor impresso no Edit1 e outro no Edit2 deverá retornar em outro Edit3 o seguinte resultado ( Aprovado ou Reprovado);
esplicando:
Se Edit1 maior ou igual a Edit2 deverá retornar em Edit3 (Aprovado);
Se Edit1 menor ou igual a Edit2 deverá retornar em Edit3 (Reprovado);
O valor da diferença não pode ultarpassar em 10.

Outro problema como posso resolver este erro no edit.
´ is not a valid integer value´ estou utilizando este código.
E_Res->Text=StrToInt(E_Leitura_A->Text)-StrToInt(E_Leitura_B->Text);


Responder

Posts

25/12/2007

Emir Neto

IF edit1.Text >= edit2.Text THEN
edit3.Text := ´Aprovado´
ELSE
edit3.Text := ´Reprovado´;



E_Res.Text := StrToInt( E_Leitura_A.Text ) - StrToInt(E_Leitura_B.Text );
´ is not a valid integer value´ (Erro apresentado caso qualquer valor enviado pelos dois campos não sejam inteiros).


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar