Programa En Lazarus

[ecfisa]

Hola shaadyrm, bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

En tu formulario agregá: Dos TLabel, un TEdit, un TButton y un TListBox.

El código:

Código Delphi [-]
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption:= 'TABLA DE MULTIPLICAR';
  Label1.Caption:= 'Para el número:';
  Label2.Caption:= 'Resultado:';
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  if not (Key in [#8,'0'..'9']) then
  begin
    Beep;
    Key:= #0;
  end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var
  n: Integer;
begin
  if not TryStrToInt(Edit1.Text,n) then
  begin
    Beep;
    Edit1.SetFocus;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i,n: Integer;
begin
  with ListBox1 do
  begin
    Clear;
    n:= StrToInt(Edit1.Text);
    for i:= 1 to 10 do
      Items.Add(Format('%d x %d = %d',[n, i, i*n]));
  end
end;
...

El resultado:


Saludos