Evento Onclick

[Cassio Caminha 0]

tenho um Edit um Button e um Listbox

 

preciso de um comando que quando eu digite um numero no edit e clico no button ele armazene esse numero

no Listbox, e assim digitando novos numeros no edit

[fernando.fxsoft 0]

tenho um Edit um Button e um Listbox

 

preciso de um comando que quando eu digite um numero no edit e clico no button ele armazene esse numero

no Listbox, e assim digitando novos numeros no edit

 

procedure TForm2.Button1Click(Sender: TObject);

begin

ListBox1.Items.Add(Edit1.Text);

end;

[Cassio Caminha 0]

valeu isso resolveu o primeiro problema

agora para pegar todos esses valores de dentro do Listbox e somalos quando clicar em outro button e mostrar o

valor no edit3 tem algum codigo ?

[Raficcha 1]

Para ver a soma, utilize esta função (procedimento)

procedure TForm1.btSomaTudoOnClick(Sender:TObject);
var
	Cont : Integer;
	Soma : Integer;
begin
	Soma := 0;
	for Cont := 0 to ListBox1.Items.Count-1 do
	begin
		try
			Inc(Soma, StrToInt(ListBox1.Items[Cont]));
		except
			Showmessage('Valor Inválido no ListBox1. Valor "'+ListBox1.Items[Cont]+'" não somado');
		end;	
	end;
	
	Showmessage('O Total da soma dos valores do ListBox1 é: "'+IntToStr(Soma)+'"');
end;

:D