Programa En Lazarus

[shaadyrm]

Quisiera que me ayudaran con este programa en pascal con formato en GEANY para pasarlo a LAZARUS usando los formularios y demás.
necesito usar buttons, TEdit.

Código Delphi [-]
program tablamulti;
uses
  crt; 
var 
  num,multiplicador:integer; 
  
Begin
Clrscr; 
gotoxy(15,5);
textcolor(11);
writeln('TABLA DE MULTIPLICAR');
textcolor(13);
write ('Introduzca un numero para hacer su tabla de multiplicar: '); 
readln(num); 

FOR multiplicador:=1 TO 10 DO 

BEGIN 
delay(1000);
textcolor(9);
write(num); write(' * '); write(multiplicador); write(' = '); 
writeln(num*multiplicador); 
end; 
end.

[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

[[rretamar]]

Muy buena respuesta. Lazarus puede usar WriteLn en aplicaciones de consola, pero la solución en modo gráfico es mucho mejor.