У меня есть вот такой код:
var
m: array [1..n] of integer;
begin
for i := 1 to n do
label1.capton : = m[i];
end;
Как мне вывести весь массив m
в один label?
эээ...
for i := 1 to n do
label1.caption := label1.caption + ' ' + m[i];
Не катит?
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;