Problema - Delphi não reconhece valores entre 1000 e 1999
Bom dia a todos.
Estou com uma dúvida que há dias não consigo resolver. Uso Delphi 2010 com bd MySQL 5.6.12.
Tenho um DBGrid que seta o estoque de produtos da Empresa, eu quero deixar as linhas em vermelho, isso SE o determinado produto estiver com um estoque ABAIXO de 200.
Usei o seguinte código no OnDrawColumnCell:
if (dm.Q_pecasqtdd.AsString<'201') then
begin
Dbgrid1.Canvas.Font.Color:= clRed; //Pinta de Vermelho
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end
else
begin
Dbgrid1.Canvas.Font.Color:= clGreen; //Pinta de Verde
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end;
end;
O problema acontece que, eu tenho 3 produtos cuja a quantidade é entre 1000 e 1999. E esses produtos continuam em vermelho, está acusando como se ele fosse MENOR que 201.
Alguém me ajuda!?
[img]http://arquivo.devmedia.com.br/forum/imagem/360925-20141104-083919.jpg[/img]
Estou com uma dúvida que há dias não consigo resolver. Uso Delphi 2010 com bd MySQL 5.6.12.
Tenho um DBGrid que seta o estoque de produtos da Empresa, eu quero deixar as linhas em vermelho, isso SE o determinado produto estiver com um estoque ABAIXO de 200.
Usei o seguinte código no OnDrawColumnCell:
if (dm.Q_pecasqtdd.AsString<'201') then
begin
Dbgrid1.Canvas.Font.Color:= clRed; //Pinta de Vermelho
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end
else
begin
Dbgrid1.Canvas.Font.Color:= clGreen; //Pinta de Verde
Dbgrid1.DefaultDrawDataCell(Rect, dbgrid1.columns[datacol].field, State);
end;
end;
O problema acontece que, eu tenho 3 produtos cuja a quantidade é entre 1000 e 1999. E esses produtos continuam em vermelho, está acusando como se ele fosse MENOR que 201.
Alguém me ajuda!?
[img]http://arquivo.devmedia.com.br/forum/imagem/360925-20141104-083919.jpg[/img]
Bruno Souza
Curtidas 0
Melhor post
Wanderson Cortes
04/11/2014
Deve ser porque você está convertendo pra String, usa o Asfloat ou AsInteger.
if (dm.Q_pecasqtdd.AsInteger<201) then
GOSTEI 1
Mais Respostas
Bruno Souza
04/11/2014
kkkkkkkkkkkkkkk.. Obrigado! Resolvido ^^
GOSTEI 0