unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes,
Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
EditNumero: TEdit;
ButtonGerar: TButton;
MemoResultado: TMemo;
Label1: TLabel;
procedure ButtonGerarClick(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ButtonGerarClick(Sender: TObject);
var
Numero, i, Resultado: Integer;
begin
Numero := StrToInt(EditNumero.Text);
MemoResultado.Lines.Clear;
for i := 1 to 10 do
begin
Resultado := Numero * i;
MemoResultado.Lines.Add(IntToStr(Numero) + ' x ' + IntToStr(i) + ' = ' + IntToStr(Resultado));
end;
end;
end.
===============================================================
https://www.nasciweb.com.br