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