Вывод в форме

dencil

Дали задание с помощью формы сделать таблицу умножения, т.е. из edit.text считать число, а затем вывести в столбик значения этого числа умноженного на промежуток от 1 до 10. Пример: в edit ввели 2 затем должно вывести в столбик- 2*1=2 2*2=4 2*3=6 и т.д. Почти сделал, но с выводом разобраться не могу. Вот кусок кода.
a:=strtoint(edit1.text);
for i:=1 to 10 do
x:=a*i;
label1.caption:=inttostr(x);
3 ответа

dencil

Выводить наверное лучше в Memo
for i:=1 to 10 do
 begin
  x:=a*i;
  Memo1.Lines.Add(inttostr(x);
 end;
А в Label так
for i:=1 to 10 do
 begin
  x:=a*i;
  Label1.Caption:=Label1.Caption+inttostr(x)+#13#10;
 end;


dencil

С выводом в Мемо:
var
  a, i: Integer;
begin
  Memo1.Clear;
  a := strtoint(edit1.text);
  for i:=1 to 10 do
    Memo1.Lines.Add(inttostr(a*i));


dencil

Но это просто вывод чисел, а если нужно вывести так 2*1=2, то пишем
Memo1.Lines.Add(inttostr(a)+'*'+inttostr(i)+'='+inttostr(x));