Показать сообщение отдельно
  #31  
Старый 03.07.2019, 00:00
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Бли-и-и-и-ин...
Ну для простоты примера написал цикл...
Что мешает передавать по элементу???
Код:
Sources[1] := Dmin;
Sources[2] := lnas;
...

PS. Да, ягляжу, что у тебя числа не целые. Соответсвенно, надо поменять типа на Double...

PPS. Кстати, через RTTI можно попробовать и через цикл передать... что-то типа
Код:
For I := Low(Sources) To High(Sources) Do
  Sources[i] := StrToFloat((FindComponent('Edit'+IntToStr(I)) As TEdit).Text);
Синтакс не проверял...
Ответить с цитированием