¿cómo puedo poner la tabla de multiplicar en un listbox?

[frankmanuel06]

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]

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]

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]

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...

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]

Muchas gracias y saludos!

[frankmanuel06]

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

[ecfisa]

Hola frankmanuel06.

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

Saludos