Минимизация строк

@JeeNK · Регистрация: 13.11.2017

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

Здравствуйте!
Допустим:

Delphi

  Image1.Visible:=true;
  Image9.Visible:=true;
  Image10.Visible:=true;
  Image11.Visible:=true;
  Image12.Visible:=true;

Как это занести в одну строчку?

@northener · 22.05.2018, 18:46

Элементарно.

Delphi

1	Image1.Visible:=true;Image9.Visible:=true;Image10.Visible:=true;Image11.Visible:=true;Image12.Visible:=true;

@WarlikeLaux · 22.05.2018, 18:51

Либо через массив компонентов, либо через перебор всех компонентов циклом.

@JeeNK · 22.05.2018, 18:51 **[ТС]**

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

Элементарно.

Я имел ввиду в одну команду

@WarlikeLaux · 22.05.2018, 18:52

Не по теме:

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

Элементарно.

Delphi

1	Image1.Visible:=true;Image9.Visible:=true;Image10.Visible:=true;Image11.Visible:=true;Image12.Visible:=true;

:D:D:D

@JeeNK · 22.05.2018, 18:52 **[ТС]**

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

Либо через массив компонентов

Можно пример пожалуйста?

@WarlikeLaux · 22.05.2018, 19:00

Delphi

1 2	//10 элементов компонентного типа TImage Images: array [1..10] of TImage;

Как я понимаю, вы не динамически создаете компоненты, так что вот так вот будет

Delphi

  n := 0;
  for i := 0 to ComponentCount -1 do
    begin
      if (Components[i] is TImage) then
        begin
          inc(n);
          Images[n] := TImage(Components[i]);
       end;
    end;

Как обращаться я думаю Вы поняли.

Добавлено через 1 минуту
Подредактировал немного, пару опечаток допустил.

@Puporev · 22.05.2018, 19:01

Delphi

1
2
3

for i := 0 to ComponentCount - 1 do
if Components[i] is TImage then
TImage(Components[i]).Visible := true;

@JeeNK · 22.05.2018, 19:03 **[ТС]**

Мне не все нужно скрыть, а только некоторые

@WarlikeLaux · 22.05.2018, 19:04

Кстати, оно может не по порядку занестись в массив, так что лучше у всех компонентов в свойство Tag записать порядковый номер и вместо Images[n] использовать Images[Component[i].Tag] в цикле инициализации массива.

@Puporev · 22.05.2018, 19:06

Или как у WarlikeLaux,

Delphi

 n := 0;
  for i := 0 to ComponentCount -1 do
    begin
      if (Components[i] is TImage) then
        begin
          inc(n);
          if n in [1,9..12] then    Images[n] := TImage(Components[i]);
       end;
    end;

@WarlikeLaux · 22.05.2018, 19:07

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

Мне не все нужно скрыть, а только некоторые

Можно еще так (но тут надо занести в свойство Tag порядковые номера)

Delphi

  for j in [1, 9..12] do
    for i := 0 to ComponentCount - 1 do
      if Components[i] is TImage then
        if Components[i].Tag = j then
          TImage(Components[i]).Visible := true;

@JeeNK · 22.05.2018, 19:11 **[ТС]**

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

Можно еще так

Извиняюсь, конечно, но есть возможность создать какую-нибудь функцию, чтобы вызывать ее и убирать картинки в 1-2 строчки, а не в 5?

@WarlikeLaux · 22.05.2018, 19:25

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

Извиняюсь, конечно, но есть возможность создать какую-нибудь функцию, чтобы вызывать ее и убирать картинки в 1-2 строчки, а не в 5?

Создать свою пользовательскую процедуру, только вот я не знаю можно ли множество передавать как параметр, а чем тебя не устраивают эти пять строчек? А вообще, слушай, можно же так сделать, не очень красиво конечно, лучше было бы множество передавать, насчет этого думаю у Puporev нужно уточнить, он точно должен знать.

Delphi

1 2	for j in [1, 9..12] do MySyperProcedure(j);

Сама процедура.

Delphi

procedure MySyperProcedure(n: integer);
var
  i: integer;
begin
   for i := 0 to ComponentCount - 1 do
      if Components[i] is TImage then
        if Components[i].Tag = n then
          TImage(Components[i]).Visible := true;
end;

Добавлено через 5 минут
Но лучше конечно через массив компонентов (тогда и процедуры не надо, все уложится в две строчки), а то как я понимаю, раз вы хотите процедуру, то собираетесь вызывать ее не один раз.

Delphi

1 2	for i in [1, 9..12] do Images[i].Visible := true; //если будет ошибка, то походу надо TImage(Images[i]).Visible := true

@JeeNK · 22.05.2018, 19:25 **[ТС]**

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

только вот я не знаю можно ли множество передавать как параметр

Уже сам додумал это, но все работает, спасибо

@WarlikeLaux · 22.05.2018, 19:25

А то перебирать каждый раз все компоненты такое себе.

@northener · 23.05.2018, 01:07

Не по теме:

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

Я имел ввиду в одну команду

Я это понял, но не смог удержаться от шуточного, но строго буквального ответа на вопрос. :)

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

Мне не все нужно скрыть, а только некоторые

Если эти "некоторые" можно сгруппировать на одну панель, то всё гораздо проще.

Delphi

1	Panel1.Visible:=False;

P.S. В любом случае работу через поиск в списках Components/Controls считаю крайним случаем.

@JeeNK 0 / 0 / 0 Регистрация: 13.11.2017 Сообщений: 25
	22.05.2018, 19:25 [ТС]	15
	Сообщение от WarlikeLaux только вот я не знаю можно ли множество передавать как параметр Уже сам додумал это, но все работает, спасибо 0

@WarlikeLaux 9 / 9 / 12 Регистрация: 17.01.2018 Сообщений: 281
	22.05.2018, 19:25	16
	А то перебирать каждый раз все компоненты такое себе. 0

@WarlikeLaux 9 / 9 / 12 Регистрация: 17.01.2018 Сообщений: 281
	22.05.2018, 18:51	3
	Либо через массив компонентов, либо через перебор всех компонентов циклом. 0

@JeeNK 0 / 0 / 0 Регистрация: 13.11.2017 Сообщений: 25
	22.05.2018, 18:51 [ТС]	4
	Сообщение от northener Элементарно. Я имел ввиду в одну команду 0

@JeeNK 0 / 0 / 0 Регистрация: 13.11.2017 Сообщений: 25
	22.05.2018, 18:52 [ТС]	6
	Сообщение от WarlikeLaux Либо через массив компонентов Можно пример пожалуйста? 0

@JeeNK 0 / 0 / 0 Регистрация: 13.11.2017 Сообщений: 25
	22.05.2018, 19:03 [ТС]	9
	Мне не все нужно скрыть, а только некоторые 0

@WarlikeLaux 9 / 9 / 12 Регистрация: 17.01.2018 Сообщений: 281
	22.05.2018, 19:04	10
	Кстати, оно может не по порядку занестись в массив, так что лучше у всех компонентов в свойство Tag записать порядковый номер и вместо Images[n] использовать Images[Component[i].Tag] в цикле инициализации массива. 0

@JeeNK 0 / 0 / 0 Регистрация: 13.11.2017 Сообщений: 25
	22.05.2018, 19:11 [ТС]	13
	Сообщение от WarlikeLaux Можно еще так Извиняюсь, конечно, но есть возможность создать какую-нибудь функцию, чтобы вызывать ее и убирать картинки в 1-2 строчки, а не в 5? 0

Минимизация строк

Решение