PDA

Ver la Versión Completa : Problema con ListBox


Jaiha
04-07-2007, 17:22:08
Hola, buenos dias. Soy nuevo en el foro y tambien usando Delphi. No se si postee en el lugar correcto asi que pido que me perdonen.:o
La cuestion es que estoy haciendo una aplicacion Delphi donde tengo 2 datos de numeros y eligo en un MeinMenu si quiero sumar, restar, multiplicar o dividir estos datos. La cuestion es que los resultados me aparecen y se van agregando en el Listbox. Yo quisiera que en vez de que aparezcan los resultados directamente, me mostrara la ecuacion que yo pedi. Por ejemplo, yo quiero que me sume 2 y 2, en el Listbox no me aparezca directamente "4" sino que me aparezca "2+2=4".

el codigo que escribi es masomeno asi para la suma por ejemplo:

procedure TForm1.Suma1Click(Sender: TObject);
var a,b,r: real;
begin
a:= StrToFloat( Edit1.Text);
b:= StrToFloat( Edit2.Text);
r:= a+b;
Listbox1.Items.Add(FloatToStr(r))
end;

Que tendria que cambiar? Muchas gracias! Saludos:D

roman
04-07-2007, 17:27:10
Pues no sé si he entendido pero creo que bastaría algo como esto:


procedure TForm1.Suma1Click(Sender: TObject);
var
a,b,r: real;

begin
a:= StrToFloat( Edit1.Text);
b:= StrToFloat( Edit2.Text);
r:= a+b;

Listbox1.Items.Add(Edit1.Text + ' + ' + Edit2.Text + ' = ' + FloatToStr(r));
end;


// Saludos

Jaiha
04-07-2007, 17:35:35
Roman, muchas gracias por tu ayuda!!! :D Me fui muy util. Saludos