delphi duvidas
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
Curtidas 0
Respostas
Natanael Ferreira
27/10/2017
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)GOSTEI 0
Rafael Yudi
27/10/2017
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;
GOSTEI 0
Rafael Yudi
27/10/2017
Conseguiiii
GOSTEI 0