Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Problema con ListBox (https://www.clubdelphi.com/foros/showthread.php?t=45478)

Jaiha 04-07-2007 17:22:08

Problema con ListBox
 
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:

Código Delphi [-]
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


La franja horaria es GMT +2. Ahora son las 18:41:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi