Fórum delphi duvidas #587275
27/10/2017
0
Possuo uma listbox e toda vez que aciono ela pelo tbutton acumula-se dados nela.. como faço para toda vez que clicar no tbutton ele inserir os dados e na proxima vez que eu apertao no tbutton apagar os dados que ja tinham na listbox e inserir dados novos?
Possuo tambem um vetor real mas ele possui muitas casas decimais... como faço para reduzir elas em apenas 2 e mostrar ela numa label? devo criar uma function ou tem outra forma de fazer?
Possuo tambem um vetor real mas ele possui muitas casas decimais... como faço para reduzir elas em apenas 2 e mostrar ela numa label? devo criar uma function ou tem outra forma de fazer?
Rafael Yudi
Curtir tópico
+ 0
Responder
Posts
27/10/2017
Natanael Ferreira
Quanto ao Listbox coloque um Clear para Limpar o Listbox na primeira linha do OnClick do button.
Para mostrar o valor com duas casas decimais utilize o FormatFloat:
ListBox1.Items.Clear;
Para mostrar o valor com duas casas decimais utilize o FormatFloat:
Label1.Caption:= FormatFloat('###,##0.00', valorReal)
Responder
Gostei + 0
27/10/2017
Rafael Yudi
procedure TNumDivisor.CalcularClick(Sender: TObject);
var numero, I: Integer;
begin
numero:= StrToInt(Tedt.Text);
Lbl_qtd2.Caption:= IntToStr(calculo(numero));
for I := Low(cont) to High(cont) do
begin
if cont[i] <> 0 then
ListBox1.Items.Add(IntToStr(cont[I]));
end;
end;
var numero, I: Integer;
begin
numero:= StrToInt(Tedt.Text);
Lbl_qtd2.Caption:= IntToStr(calculo(numero));
for I := Low(cont) to High(cont) do
begin
if cont[i] <> 0 then
ListBox1.Items.Add(IntToStr(cont[I]));
end;
end;
Responder
Gostei + 0
27/10/2017
Rafael Yudi
Conseguiiii
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)