Array
(
)

Edit, como osso resolver estes problemas.

Rosiley
   - 20 dez 2007

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);


Emir Neto
   - 25 dez 2007

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).