Hola, necesito ayuda con el siguiente ejercicio, por favor:
Escribe un programa que muestre en un objeto Memo las tablas de multiplicar para todos los números entre dos números introducidos por el usuario. Por ejemplo, si el usuario solicita las tablas entre 2 y 5, el programa mostrará las tablas completas (del 1 al 10) del 2, el 3, el 4 y el 5.
Construí este código, pero nadmas me da las tablas de los número que ingresó:
Código Delphi
[-]procedure TForm1.BitBtn1Click(Sender: TObject);
var n1,n2,c,codigo:Integer;
begin
val(Edit1.Text,n1,codigo);
val(Edit2.Text,n2,codigo);
c:=1;
Memo1.Text:='Tablas de multiplicar';
while c<=10 do
begin
Memo1.Text:=Memo1.Text+#13#10+' '+
IntToStr(c)+'x'+IntToStr(n1)+'='+
IntToStr(n1*c);
Memo1.Text:=Memo1.Text+#13#10+' '+
IntToStr(c)+'x'+IntToStr(n2)+'='+
IntToStr(n2*c);
c:=c+1;
end;
end;
De antemano muchas gracias y saludos.