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
    17 ноя 2013 в 6:58
  • Да, спасибо. Уже относительно давно на Delphi не пишу, подзабыл кое-что... Кстати, а зачем вставлять символ переноса строки? По-моему, пробел нормально тоже будет... 17 ноя 2013 в 7:00
  • да просто что бы не в одну строку, но кому как предпочтительнее :)
    – Praddos
    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
    2 июн 2017 в 5:26

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

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