TEdit

← →
tytus (2004-06-27 19:49) [0]

На форме 12 Edit-ов. Как можно их очистить за один раз (не перебирая контролы формы в цикле и не писать 12 раз Edit.Clear)?

← →
Cardinal © (2004-06-27 20:04) [1]

А чем не устраивает первый вариант?

← →
Anatoly Podgoretsky © (2004-06-27 20:11) [2]

Нельзя, у нас только один процессор

← →
tytus (2004-06-27 20:15) [3]

>Cardinal>Anatoly Podgoretsky
Да хотелось как-то по-короче написать, хитрее, что-ли...
Может API функция какая есть...

← →
Anatoly Podgoretsky © (2004-06-27 20:22) [4]

Вин АПИ ничего не знает про классы Дельфи

← →
KilkennyCat © (2004-06-27 20:23) [5]

> tytus (27.06.04 20:15) [3]

Есть. Не совсем АПИ - Application.Terminate

← →
tytus (2004-06-27 20:27) [6]

>Kil..Cat
Согласен, сработает, но не совсем то, что нужно.

← →
KilkennyCat © (2004-06-27 20:42) [7]

> tytus (27.06.04 20:27) [6]

Тогда пиши свой компонент, типа EditGroup...

← →
tytus (2004-06-27 20:53) [8]

>ALL
for i:=ComponentCount-1 downto 0 do
if Components[i].ClassName="TEdit" then
(Components[i] as TEdit).Clear;

так работает. Может есть метод еще по-проще? (кроме Application.Terminate...)

← →
Anatoly Podgoretsky © (2004-06-27 20:57) [9]

Form.Free/Create

← →
KilkennyCat © (2004-06-27 20:58) [10]

> tytus (27.06.04 20:53) [8]

есть проще.

Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
Edit5.Clear;
Edit6.Clear;
Edit7.Clear;
Edit8.Clear;
Edit9.Clear;
Edit10.Clear;
Edit11.Clear;
Edit12.Clear;
Edit13.Clear;
Edit14.Clear;
Edit15.Clear;
Edit16.Clear;
Edit17.Clear;
Edit18.Clear;
Edit19.Clear;
Edit20.Clear;
Edit21.Clear;
Edit22.Clear;
Edit23.Clear;
Edit24.Clear;
Edit25.Clear;
Edit26.Clear;
Edit27.Clear;
Edit28.Clear;
Edit29.Clear;
Edit30.Clear;
Edit31.Clear;
Edit32.Clear;
Edit33.Clear;
Edit34.Clear;
Edit35.Clear;
Edit36.Clear;
Edit37.Clear;
Edit38.Clear;
Edit39.Clear;
Edit40.Clear;
Edit41.Clear;
Edit42.Clear;
Edit43.Clear;
Edit44.Clear;
Edit45.Clear;
Edit46.Clear;
Edit47.Clear;
Edit48.Clear;
Edit49.Clear;
Edit50.Clear;
Edit51.Clear;
Edit52.Clear;
Edit53.Clear;
Edit54.Clear;
Edit55.Clear;
Edit56.Clear;
Edit57.Clear;
Edit58.Clear;
Edit59.Clear;
Edit60.Clear;
Edit61.Clear;
Edit62.Clear;
Edit63.Clear;
Edit64.Clear;
Edit65.Clear;
Edit66.Clear;
Edit67.Clear;
Edit68.Clear;
Edit69.Clear;
Edit70.Clear;
Edit71.Clear;
Edit72.Clear;
Edit73.Clear;
Edit74.Clear;
Edit75.Clear;
Edit76.Clear;
Edit77.Clear;
Edit78.Clear;
Edit79.Clear;
Edit80.Clear;
Edit81.Clear;
Edit82.Clear;
Edit83.Clear;
Edit84.Clear;
Edit85.Clear;
Edit86.Clear;
Edit87.Clear;
Edit88.Clear;
Edit89.Clear;
Edit90.Clear;
Edit91.Clear;
Edit92.Clear;
Edit93.Clear;
Edit94.Clear;
Edit95.Clear;
Edit96.Clear;
Edit97.Clear;
Edit98.Clear;
Edit99.Clear;
Edit100.Clear;

ненужное заключить в { }

← →
tytus (2004-06-27 21:11) [11]

>ALL
СПААААСИБОООООО!!! Приятно, что есть чувство юмора...
>Anatoly Podgoretsky
Form.Free/Create - будет ли работать быстрее моего цикла
>то-же для KilkenyCat.

> tytus (27.06.04 21:11) [11]

да. не перебериает все компоненты.

> begin...end © (27.06.04 21:13) [12]

Это отрывок из моего "УКП 19.234.789" (Универсальный Конструктор Программ ) - там всего по сотне. Написание программы сводится к размещению {}

tytus (27.06.04 21:11) [11]
А это уже другой вопрос, но скорость здесь не требуется, кроме того у тебя есть Дельфи, сделай и посморти устроит ли скорость.

> begin...end © (27.06.04 21:21) [15]

Осталось сделать автоматическое заключение в скобки всего, на что компилятор ругнется :) Лет через двадцать закончу. Будет поставляться вагоном дискеток, бесплатно.

TEdit Найти похожие ветки