Опрос компонента по номеру или ???

[Little_Roo]

Есть дурацкая форма (не бейте ногами, гуру) - набор DBEdit - переименованных от DBO0 до DBO208

lic.JPG

Нужно, чтоб при отметке = 2 (поле integer) - менялась подсветка (фон) поля - при клике на отметке, тфу по навигатору, или при при пересчете среднего балла
По рабоче-крестьянски IF-ами не комильфо...

Начальство хочет простоты и наглядности
База птица 2.3
Lazarus 0.9.29 r23660 FPC 2.4.0 i386-win32-win32/win64

[AlexP]

Код: Выделить всё

var i,j:integer;
begin
for i:=0 to application.ComponentCount-1 do
for j:=0 to application.Components[i].ComponentCount-1 do
  if pos('DB0',application.Components[i].Components[j].Name)>0 then
   if tdbedit(application.Components[i].Components[j]).Text='2'
    then tdbedit(application.Components[i].Components[j]).Color:=clred;
end;


Так, например.

[Brainenjii]

быть может это покажется чрезчур неординарным... Но я бы предложил воспользоваться каким-нибудь Grid'ом...