Fórum Converter Float para integer #262811
20/12/2004
0
Var
TotX : Integer;
TotX := int(ToX /100);
ProgressBar1.Position := TotX;
Var
TotX : Real;
TotX := TotX /100;
ProgressBar1.Position := FloatToInt(TotX);
Incompatible Types, pq?

Wgm8
Curtir tópico
+ 0Post mais votado
20/12/2004
:arrow: [color=red:ea4f20a965][b:ea4f20a965]E eu acho legal você dá uma OLHADINHA nas [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689&sid=4ef9917a1e0af1dbf348b1c225f50f25]Regras de Conduta [/url]do fórum, Razor. [/b:ea4f20a965][/color:ea4f20a965] :lol:
Rômulo Barros

Gostei + 1
Mais Posts
20/12/2004
Massuda
Gostei + 0
20/12/2004
Razor
isso e logica basica..... eu acho legal vc dar uma olhada em um livro de algoritmos.
Gostei + 0
04/07/2019
Claudio
Var
TotX : Integer;
TotX := int(ToX /100);
ProgressBar1.Position := TotX;
Var
TotX : Real;
TotX := TotX /100;
ProgressBar1.Position := FloatToInt(TotX);
Incompatible Types, pq?
var valor: real;
result: integer;
begin
valor := 147.89;
// separando a parte inteira: resultado 147
result := trunc(valor);
// separando a parte fracionária:
// multiplicar por 100 obtem as duas primeiras casas decimais
// resultado 89
result := round(frac(valor) * 100);
end;
Gostei + 0
05/07/2019
Emerson Nascimento
Porque a propriedade Position da minha ProgressBar recebe um TPosition e não um numero.
De qualquer forma, porque você quer fazer a atribuição desta forma?
Para usar o ProgressBar basta você atribuir o total de iterações em MAX, e cada iteração em VALUE. Não há necessidade de fazer qualquer cálculo.
Algo assim:
1 2 3 4 5 6 7 8 9 10 | nTotRec := cdsPedidos . RecordCount; ProgressBar1 . Max := nTotRec; cdsPedidos . First; for i := 1 to nTotRec begin ProgressBar1 . Value := i; // seu código a partir daqui cdsPedidos . Next; end ; |
ou assim:
1 2 3 4 5 6 7 8 9 10 11 | nTotRec := cdsPedidos . RecordCount; ProgressBar1 . Max := nTotRec; cdsPedidos . First; while not cdsPedidos . Eof begin inc(i); ProgressBar1 . Value := i; // seu código a partir daqui cdsPedidos . Next; end ; |
Você pode optar pelo gauge, que tem um método AddProgress e você não precisa de uma variável para controlar o progresso.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)