Edit, como osso resolver estes problemas.

20/12/2007

1

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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira