OnlyGoRush
@OnlyGoRush
Студент

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

Помогите пожалуйста переписать код так, чтобы получить вывод массива в поле 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;
  • Вопрос задан
  • 35 просмотров
Решения вопроса 1
@StockholmSyndrome
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;
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы