F�rum comparando valores em 2 edits #346075

14/09/2007

salve delphianos.

estou fazendo algo simples, porem deu um pobreminha aqui. fasso uma compara��o entre 2 Tedit�s para verificar se o valor digitado no edit1 � maior que o valor que consta no edit2, se for, o edit1 fica com a fonte em vermelho.

o problema � que esta funcionando para as 9 primeiras compara��es (18 edit�s), na decima compara��o caso o valor seja igual ou maior a fonte fica em vermelho. ka me aconteceu varias vezes de nao conseguir enchergar um problema simples como esse, por isso estou postando aqui para saber se alguem pode me dar uma m�o.

segue o codigo abaixo:

// at� esse funciona
procedure TfrmClass3RRes.edtTR9Change(Sender: TObject);
var
resultado: Double;
begin
    try
    resultado := StrToFloat(edtTR9.Text);

      if resultado > StrToFloat(edtTL9.Text) then
      edtTR9.Font.Color := cLred
      else
        edtTR9.Font.Color := cLblack;
    Except on exception do
      begin
        // n�o faz nada
      end;
    end;
end;

// esse n�o funciona
procedure TfrmClass3RRes.edtTR10Change(Sender: TObject);
var
resultado: Double;
begin
    try
    resultado := StrToFloat(edtTR10.Text);

      if resultado > StrToFloat(edtTL10.Text) then
      edtTR10.Font.Color := cLred
      else
        edtTR10.Font.Color := cLblack;
    Except on exception do
      begin
        // n�o faz nada
      end;
    end;
end;

abra�os a todos!

Mahdak

Curtir t�pico

+ 0

Responder

Posts

15/09/2007

Mahdak

resolvido...

s� troquei a variavel �resultado� pela referencia direta ao edit

valeu!

begin
    try
      if StrToFloat(edtTR1.Text) > StrToFloat(edtTL1.Text) then
      edtTR1.Font.Color := cLred
      else
        edtTR1.Font.Color := cLblack;
    Except on exception do
      begin
        // n�o faz nada
      end;
    end;
end;

Responder

Gostei + 0