Как вместо стандартного вывода массива на экран, вывести массив в поле TMemo?

Question

[Данил]

Помогите пожалуйста переписать код так, чтобы получить вывод массива в поле TMemo.
Код:

for i:=1 to n do begin
    for j:=1 to n do write(A[i,j]:3);
    writeln;
end;

Я выполнил так, но это не работает:

for i:=1 to n do begin
    for j:=1 to n do MemoMS.Text:=MemoMS.Text + IntToStr(A[i,j]:3);
    MemoMS.Text:=MemoMS.Text + #13#10;
end;

Answer 1

[Stockholm Syndrome]

var 
  str: string;
begin
  str := '';
  for i := 1 to n do begin
    for j := 1 to n do begin
      str := str + '   ' + IntToStr(A[i, j]);
    end;
    MemoMS.Lines.Add(str);
    str := ''; 
  end;
end;

Comments

[Данил]

Спасибо за помощь!