Maior Numero

[wagnercampanari]

Tenho um label que recebe valores numéricos positivos e negativos, esses valores ficam se alternando constantemente, tento fazer ler o maior numero mostrado e guardar esse numero em outro label e assim sucessivamente toda vez que um numero maior é mostrado.

procedure TMiniBrowserFrm.FormCreate(Sender: TObject);
begin
  vlr01:='0';

end;

 

procedure TMiniBrowserFrm.Price1Timer(Sender: TObject);
var

vlr02,xxc:real;

  if (vlr01 = '0') and (Label11.Caption <> '0') then 
   begin
      xxc:= StrToFloat(Label11.Caption);
      vlr01:='1';
   end;

    vlr02:=StrToFloat(Label11.Caption);

   if (vlr02 > xxc) then //and (Venda.Enabled = True) and (c02 = 1) then
   begin
   Label14.Caption:=Label11.Caption;
   Label15.Caption:=FloatToStr(StrToFloat(Label14.Caption)/StrToFloat('2'));
   end;

Me parece que era para funcionar, mais acontece que ele não respeita a logica vlr02 > vlr01, o label14 fica mostrando números maiores e menores toda vez que o timer é ativado.  

 

 

[wagnercampanari]

7 horas atrás, wagnercampanari disse:

Tenho um label que recebe valores numéricos positivos e negativos, esses valores ficam se alternando constantemente, tento fazer ler o maior numero mostrado e guardar esse numero em outro label e assim sucessivamente toda vez que um numero maior é mostrado.

procedure TMiniBrowserFrm.FormCreate(Sender: TObject);
begin
  vlr01:='0';

end;

 

procedure TMiniBrowserFrm.Price1Timer(Sender: TObject);
var

vlr02,xxc:real;

  if (vlr01 = '0') and (Label11.Caption <> '0') then 
   begin
      xxc:= StrToFloat(Label11.Caption);
      vlr01:='1';
   end;

    vlr02:=StrToFloat(Label11.Caption);

   if (vlr02 > xxc) then //and (Venda.Enabled = True) and (c02 = 1) then
   begin
   Label14.Caption:=Label11.Caption;
   Label15.Caption:=FloatToStr(StrToFloat(Label14.Caption)/StrToFloat('2'));
   end;

Me parece que era para funcionar, mais acontece que ele não respeita a logica vlr02 > vlr01, o label14 fica mostrando números maiores e menores toda vez que o timer é ativado.  

 

 

Resolvido, era um erro na posição  do vlr02 no meu codigo.