Edit. Как от одного компонента, задать значение все остальным

[tywka]

Есть несколько компонентов Edit. Назовем их Edit1, Edit2, Edit 3..... В Edit1 вводится число х. После введения числа, в остальные эдиты выводятся результаты рассчетов по определенной формуле. Пусть будет х+1 для Edit2, x+2 для Edit3 и т.д.

Сейчас у меня каждому эдиту вручную приписывается значение. Можно это как-то автоматизировать, а то при малейшей поправке приходится переделывать много текста?

[Streletz]

Сообщение от tywka

Можно это как-то автоматизировать

Можно. Для этого все необходимые расчёты следует выполнять в обработчике события OnChange 1го Edit-а.

[type_Oleg]

Вот так например:

procedure TForm1.Edit1Change(Sender: TObject);
var x:Double;
begin
 x:=StrToFloatDef(Edit1.Text,0);
 Edit2.Text:=FloatToStr(x+1);
 Edit3.Text:=FloatToStr(x+2);
end;

Будет срабатывать при любом изменении в Edit1.
Или вместо Edit1Change можно Edit1Exit, тогда будет срабатывать при выходе из Edit1 ( фокус ввода - в другой компонент).

При вводе в Edit1 вместо числа какой-нибудь белиберды в Edit2 будет 1, в Edit1 - 2

[tywka]

Ну это я и называю вручную
Под автоматизацией я подразумевал что-то типа

for i := 1 to n do Edit(i).Text := 'x+i'

Потому как таких Edit'ов у меня больше 20, а еще хочу в зависимости от того, в каком диапазоне находится число, окрашивать его в разные цвета. В итоге получается на один Edit 5 строчек кода. А на 20 уже 100 строчек.

Вот и интересуюсь, можно ли каким-либо способом укоротить этот обьем.

[evg_m]

всем Edit-ам задаем общий обработчик OnChange
и ВЫЧИСЛЯЕМ его и только (Sender!!) его цвет.

r:=strtoint((sender as TEdit).Text);
if r<0 then (sender as Tedit).font.color:=clred
else if r<10 then (sender as Tedit).font.color:=clyellow
else (sender as Tedit).font.color:=clgreen;

если конечно же для всех Edit правила вычисления цветов одинаковы!

[min@y™]

Сообщение от tywka

Ну это я и называю вручную
Под автоматизацией я подразумевал что-то типа

for i := 1 to n do Edit(i).Text := 'x+i'

Потому как таких Edit'ов у меня больше 20, а еще хочу в зависимости от того, в каком диапазоне находится число, окрашивать его в разные цвета. В итоге получается на один Edit 5 строчек кода. А на 20 уже 100 строчек.

Вот и интересуюсь, можно ли каким-либо способом укоротить этот обьем.

Да,, возможно обращаться через массив или список, предварительно создав его и заполнив. Хочу знать, как у тебя на форме появляются эти эдиты: ты их мышкой понатыкал, или, всё-же, создал динамически?
Дай посмотреть скриншот формы.

[tywka]

evg_m, спасибо, то что нужно

min@y™, сейчас понатыканы на форме. Но это не критично, можно и создавать динамически.

[саша40]

WinApi - это наше всё.

//onChange у первого edit
x,i: integer;
{a: integer; //для второго варианта}
begin
i:=2;
x:=inttostr(edit1.text); 
while FindComponent('Edit' + inttostr(i))<>0 do 
begin
(FindComponent('Edit' + inttostr(i)) as TEdit).Text:=IntToStr(x+i-1);
inc(i); 
end;
end;
{или можно сделать так:
i:=1;
for a:=1 To ComponentCount Do 
begin
if Components[a] is TEdit and Components[a].Name<>'Edit1' then 
begin
(Components[a] as TEdit).Text:=inttostr(x+i);
inc(i);
end;
end;}

[Stilet]

WinApi - это наше всё.

В твоем примере WinAPI нет.

[min@y™]

сейчас понатыканы на форме. Но это не критично, можно и создавать динамически.

Если их количество известно заранее (при запуске), можно их засунуть в статический массив (динамический массив) и обращаться по индексу:

Edits[Index].Text:= '#icebucketchallenge';

Иначе можно запихать их в TList или TObjectList:

if (Index < EditsList.Count) and Assigned(EditsList[Index]) and (EditsList[Index] is TEdit)
  then TEdit(EditsList[Index]).Text:= '#icebucketchallenge';

Заполнять массив или список можно в конструкторе формы или в обработчике её события OnCreate.
Еще есть вопросы?

Забыл спросить: нахрена такое количество эдитов в одном окне, да ещё разноцветных?

Потому как таких Edit'ов у меня больше 20, а еще хочу в зависимости от того, в каком диапазоне находится число, окрашивать его в разные цвета.

За такую цветомузыку юзеры придут тебе морду лица корректировать!
Колись давай, чего задумал, чикатило!