Сделать цикл из кода

@IPV_ · Регистрация: 13.07.2019

Author24 — интернет-сервис помощи студентам

Здравствуйте, подскажите можно ли из этого кода сделать цикл:

Delphi

if DataModule1.ADOQuery1.Fields[4].AsString=Null then
  begin
    ImgTab02.Visible:=false;
    LabelTab02.Visible:=False;
  end
else
  begin
   ImgTab02.Visible:=true;
   LabelTab02.Visible:=true;
  end;
 
if DataModule1.ADOQuery1.Fields[5].AsString=Null then
  begin
    ImgTab03.Visible:=false;
    LabelTab03.Visible:=False;
  end
else
  begin
   ImgTab03.Visible:=true;
   LabelTab03.Visible:=true;
  end;

@AzAtom · 13.07.2019, 18:05

Цикл можно сделать даже из ничего. А вам для чего ЭТО в цикле?

@IPV_ · 13.07.2019, 18:09 **[ТС]**

Код получается слишком длинным, около 10и таких повторений. По-сути это изображения с надписями и они должны быть видны\скрыты в зависимости от значения в БД...

@AzAtom · 13.07.2019, 18:22

Вот что-то похожее RadioGroup. Почему при нажатии на кнопку, показывает последнюю панель, а ну ту которую мне надо?

@Пытливый · 13.07.2019, 19:48

Delphi

1	if DataModule1.ADOQuery1.Fields[4].AsString=Null

Никогда у вас это условие не сработает т.к. приведение к строке даст пустую строку но никак не null
надо написать немного иначе:

Delphi

1	if DataModule1.ADOQuery1.Fields[4].IsNull

А вы свои элементы случаем не на TabControl положили? Если да, то замените на PageControl и ничего не надо будет прятать ручками.

@AzAtom Модератор 3635 / 2153 / 762 Регистрация: 15.11.2015 Сообщений: 8,648
	13.07.2019, 18:05	2
	Цикл можно сделать даже из ничего. А вам для чего ЭТО в цикле? 0

@IPV_ 1 / 1 / 0 Регистрация: 13.07.2019 Сообщений: 41
	13.07.2019, 18:09 [ТС]	3
	Код получается слишком длинным, около 10и таких повторений. По-сути это изображения с надписями и они должны быть видны\скрыты в зависимости от значения в БД... 0

@AzAtom Модератор 3635 / 2153 / 762 Регистрация: 15.11.2015 Сообщений: 8,648
	13.07.2019, 18:22	4
	Вот что-то похожее RadioGroup. Почему при нажатии на кнопку, показывает последнюю панель, а ну ту которую мне надо? 0

	13.07.2019, 19:48