0

У меня есть вот такой код:

var
  m: array [1..n] of integer;
begin
  for i := 1 to n do
    label1.capton : = m[i];
end;

Как мне вывести весь массив m в один label?

2 ответа 2

0

эээ...

for i := 1 to n do 
  label1.caption := label1.caption + ' ' + m[i];

Не катит?

3
  • я бы немного поправил :) for i := 1 to n do begin label1.caption := label1.caption+IntToStr(m[i])+ #10+#13; end
    – Praddos
    Commented 17 нояб. 2013 в 6:58
  • Да, спасибо. Уже относительно давно на Delphi не пишу, подзабыл кое-что... Кстати, а зачем вставлять символ переноса строки? По-моему, пробел нормально тоже будет... Commented 17 нояб. 2013 в 7:00
  • да просто что бы не в одну строку, но кому как предпочтительнее :)
    – Praddos
    Commented 17 нояб. 2013 в 8:00
0
 var
  m: array [1..n] of integer;
  s: string;
begin
  for i := 1 to n do
    m[i] := i;

  for i := 1 to n do
    s := s + IntToStr(m[i]) + ' ';

  label1.caption := s;
end;
1
  • Поправте формат кода.
    – 0xdb
    Commented 2 июн. 2017 в 5:26

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.