Вывод в label

[forumu]

Как вывести в label несколько значений? а то у меня получается несколько ответов и они все должны вывевыстись через запятую

[AlDelta]

Label1.Caption:='Значение1: '+FloatToStr(Variable1)+
' Значение2: '+FloatToStr(Variable2)
+...+'ЗначениеN: '+FloatToStr(VariableN);

[forumu]

Вот у меня такая ситуация надо вывести все двузначные числа сумма квадратов цифр которых кратно 15

procedure TForm1.Button1Click(Sender: TObject);
var a,b:array[1..9] of integer; i,j,otv:integer;
begin
for i:=1 to 9 do //Вводим первую цифру
a[i]:=i;
for j:=1 to 9 do //Вводим вторую цифру
b[j]:=j;
for i:=1 to 9 do // Создаем все двухзначные числа без нолей
for j:=1 to 9 do // т.к. 0^2+a^2 никогда не кратны 15
begin
if (sqr(a[i])+sqr(b[j])) mod 15=0 then //Выбираем из них кратные 15.Это 36,39,63,93.
otv:=a[i]*10+b[j]; //Выводим их на экран
end;
Label1.Caption:=FloatToStr(otv);
end;

end.

[AlDelta]

Замени свой if на этот

if (sqr(a[i])+sqr(b[j])) mod 15=0 then 
Begin
otv:=a[i]*10+b[j];
Label1.Caption:=Label1.Caption+' '+FloatToStr(otv);
end;

[forumu]

огромное спасибо Вам. Все получилось. Можете сказать, в чем смысл такого написания?

[AlDelta]

К старому значению добавляешь новое (если я правильно понял вопрос).

[forumu]

А вот это +' '+ для чего? Если я правильно понимаю чтоюб по мере "отсекания" циклом чисел туда записывалось.

а как то же самое сделать, только чтобы в столбик получилось?

[AlDelta]

+' '+ - вставка пробела в строку для визуальной разбивки чисел.
+#13+ - будет в столбик.

[SeRhy]

Имея все значения string-ов (a, b ,c... например) делаеш так:
label1.caption:=a+' '+b+' '+c;
(+' '+) - пробелы между значениями
Работает ето так:
label1.caption - текст label-а
ты ему присваеваеш значения a, b ,c додавая их
+' '+ ето пробелы

[_Dmitry]

Вместо +' '+ можно использовать #32, тогда и плюсы не нужны, будет
label1.caption:='a'#32'b'#32'c';