Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   ¿cómo puedo poner la tabla de multiplicar en un listbox? (https://www.clubdelphi.com/foros/showthread.php?t=83071)

frankmanuel06 08-05-2013 20:47:42

¿cómo puedo poner la tabla de multiplicar en un listbox?
 
bueno soy nuevo en esto de programar y mi pregunta es esta como puedo hacer un programa que yo ponga un numero en un edit y me ponga la tabla de multiplicar de dicho numero, bueno yo ya e comenzado pero no me funciona. estos son los codigos:

procedure TForm1.Button1Click(Sender: TObject);
var
o,n,i:integer;
begin
n:=strtoint(edit1.text);
o:=i*n;
for i:= 1 to 12 do;
listbox1.items.add((edit1.text)+inttostr(i)+'='+inttostr(o))

end;

end.
bueno espero me ayuden y gracias de antemano .

cloayza 08-05-2013 21:01:15

Bienvenido al foro...te recomiendo leer La Guía de Estilo...

Cuando coloques código utiliza las etiquetas correspondiente...
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
o,n,i:integer;
begin
       listbox1.items.clear;
       n:=strtoint(edit1.text);
       //o:=i*n;
       for i:= 1 to 12 do;
            listbox1.items.add(format('%d x %d = %d',[n,i,n*i]));
end;

Saludos cordiales

frankmanuel06 08-05-2013 21:12:26

mira me funciono pero quiero que me ponga, ejemplo si pones 1 en el edit me ponga
1x1=1
1x2=2
1x3=3

asi sucesivamente.

saludos!

cloayza 08-05-2013 21:17:27

Bueno el código hace lo que requieres...el problema es que despues de for...do hay un punto y coma que esta de mas...:D

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
o,n,i:integer;
begin
       listbox1.items.clear;
       n:=strtoint(edit1.text);
       //o:=i*n;
       for i:= 1 to 12 do  //;
            listbox1.items.add(format('%d x %d = %d',[n,i,n*i]));
end;
Saludos cordiales

frankmanuel06 08-05-2013 21:26:01

Muchas gracias y saludos! :D

frankmanuel06 08-05-2013 21:46:40

men gracias por tu tiempo jajaj pero tengo una pregunta para que es eso
de format('%d x %d = %d',[n,i,n*i])); para que sirve eso de %d y lo de format. es que quiero saber mas y mas sobre esto de programar. gracias :D

ecfisa 08-05-2013 21:50:17

Hola frankmanuel06.

Revisa en la ayuda de delphi y también en este enlace: Format

Saludos :)

frankmanuel06 08-05-2013 21:55:25

no se ingles pero como quiera gracias por la ayuda

ecfisa 08-05-2013 22:26:32

Cita:

Empezado por frankmanuel06 (Mensaje 460065)
no se ingles pero como quiera gracias por la ayuda

Algo mas completo y en español:
Saludos :)

frankmanuel06 08-05-2013 23:02:17

Muchisimas gracias por tu tiempo y saludos! :DDDD

AzidRain 08-05-2013 23:34:36

Que bonito, "Háganme mi tarea y además me explican como le hicieron..."

movorack 08-05-2013 23:45:18

Cita:

Empezado por AzidRain (Mensaje 460071)
Que bonito, "Háganme mi tarea y además me explican como le hicieron..."

..................^\||/

frankmanuel06 09-05-2013 01:39:20

men pense que esta web era para que respondieran tus dudas men yo estaba intentando hacer ese programa pero no podia haci que decidi preguntar porque como ya habia dicho soy un principiante :( . saludos cordiales!


La franja horaria es GMT +2. Ahora son las 21:26:17.

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