[DOR]

Добрый день. Подскажите пожалуйста, как можно одновременно не перечисляя все нужные "контролы" очистить их. Например, есть форма на которой 10 Edit, 10 ComboBox из которых нужно очистить только те, Name которых равны: tb_1, tb_2, tb_3, cb_1, cb_2, cb_3. Очистка происходит по нажатию на кнопки. Спасибо.

[MiraLaklamon]

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

Добрый день. Подскажите пожалуйста, как можно одновременно не перечисляя все нужные "контролы" очистить их. Например, есть форма на которой 10 Edit, 10 ComboBox из которых нужно очистить только те, Name которых равны: tb_1, tb_2, tb_3, cb_1, cb_2, cb_3. Очистка происходит по нажатию на кнопки. Спасибо.

"одновременно не перечисляя" никак нельзя.

[angvelem]

Можно требуемым для очистки контролам присвоить одинаковый и уникальный Tag. Затем используя цикл с использованием ComponentCount очистить их, примерно так:

Код:

var
  I : Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) and ((Components[i] as TEdit).Tag = 12345) then
      (Components[i] as TEdit).Text := ''
    else if (Components[i] is TComboBox) and ((Components[i] as TComboBox).Tag = 12345) then
      (Components[i] as TComboBox).Clear;
end;

[MiraLaklamon]

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

Можно требуемым для очистки контролам присвоить одинаковый и уникальный Tag. Затем используя цикл с использованием ComponentCount очистить их, примерно так:

Код:

var
  I : Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) and ((Components[i] as TEdit).Tag = 12345) then
      (Components[i] as TEdit).Text := ''
    else if (Components[i] is TComboBox) and ((Components[i] as TComboBox).Tag = 12345) then
      (Components[i] as TComboBox).Clear;
end;

Но это будет всё-же "перечисляя" (более того, перечисляя не только те компоненты которые нужно очистить, а все которые лежат на форме), а по условию задачи нужно "одновременно не перечисляя"...

[angvelem]

Пусть пробует по-своему, может получится.

[YVitaliy]

Можешь извращаться типа массивом Pointer'ов:

Код:

var pt:array of ^TWinControl;
ccount:Integer;
...........

begin
ccount:=6;
setlength(pt, ccount);
pt[0]:=@edit1;
pt[1]:=@edit2;
pt[2]:=ComboBox1;
..............


if pt[0].ClassType = TEdit then
(pt[0]^ as TEdit).text:='' else
if pt[0].ClassType = TComboBox then
(pt[0]^ as TCombobox).clear else
....................................

[angvelem]

В любом случае идёт перечисление контролов.

[YVitaliy]

Ну, тогда просто - если они не на главной форме - "убить" форму, на которой они расположены, а потом создать заново. Но я все-же думаю, что и там идет перечисление всех контроллов на форме (при создании).

[DOR]

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

Можно требуемым для очистки контролам присвоить одинаковый и уникальный Tag. Затем используя цикл с использованием ComponentCount очистить их, примерно так:

Код:

var
  I : Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if (Components[i] is TEdit) and ((Components[i] as TEdit).Tag = 12345) then
      (Components[i] as TEdit).Text := ''
    else if (Components[i] is TComboBox) and ((Components[i] as TComboBox).Tag = 12345) then
      (Components[i] as TComboBox).Clear;
end;

Подобное использовал в VBA, это ближе. Спасибо всем, кто не прошел мимо, кто высказал свое мнение и предложил возможные варианты решения.

[PS11011010]

А если сделать так, чтобы при создании формы все данные о элементах образовали непрерывный массив в памяти. То есть, допустим, есть 5 CheckBox и в памяти каждый занимает 10 байт, тогда 5 CheckBox будут занимать 50 ПОСЛЕДОВАТЕЛЬНЫХ байт. После создания формы кидаешь дамп памяти длиной в 50 байт в переменную, а потом просто меняешь значение памяти на значение переменной. Тут все, вроде даже перерисоваться должно на форме сразу (я имею ввиду наличие и отсутствие галочек на CheckBox).
Вы понимаете, о чем я?
Господа, Гуру, убейте меня ржавым носком, если такое невозможно реализовать.

[Alegun]

Вот ещё один вариант с использованием FindComponent:

Код:

for i := 1 to 3 do
 begin
 (FindComponent('tb_' + inttostr(i)) as TEdit).Text := '';
 (FindComponent('cb_' + inttostr(i)) as TComboBox).Clear;
 end;

[MiraLaklamon]

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

А если сделать так, чтобы при создании формы все данные о элементах образовали непрерывный массив в памяти. То есть, допустим, есть 5 CheckBox и в памяти каждый занимает 10 байт, тогда 5 CheckBox будут занимать 50 ПОСЛЕДОВАТЕЛЬНЫХ байт. После создания формы кидаешь дамп памяти длиной в 50 байт в переменную, а потом просто меняешь значение памяти на значение переменной. Тут все, вроде даже перерисоваться должно на форме сразу (я имею ввиду наличие и отсутствие галочек на CheckBox).
Вы понимаете, о чем я?
Господа, Гуру, убейте меня ржавым носком, если такое невозможно реализовать.

Конечно так невозможно сделать. Нет легальных способов сделать так, чтобы 10 нужных CheckBox при создании заняли память "друг за другом". Кроме того в процессе работы объекты резервируют и освобождают дополнительную память. Но даже если бы это возможно было сделать каким-то безумным способом, то простое копирование памяти тоже не даст эффекта, точнее даст скорее всего непредсказуемый результат. Так например свойство "Checked" у CheckBox это именно свойство, а не просто кусочек памяти. Если этому свойству присвоить какое-то значение (например: CheckBox1.Checked:=True), то это вызовет целую последовательность событий (в частности посылку сообщения BM_SETCHECK, которое и приведёт к установке флажка), если же просто сделать запись в тот кусочек памяти где хранится текущее состояние флажка, то это не приведёт к "визуальному" изменению.
Ну вобщем как-то так...