Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TEdit [D7, WinXP]

tytus © (2004-06-27 19:49:00)
На форме 12 Edit-ов. Как можно их очистить за один раз (не перебирая контролы формы в цикле и не писать 12 раз Edit.Clear)?

KilkennyCat (2004-06-27 21:30:00) [1]

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

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

begin...end (2004-06-27 21:21:00) [2]

> [13] KilkennyCat © (27.06.04 21:16)

О, восхитительно! Это даже круче АвтоСхемы!

:)))

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

KilkennyCat (2004-06-27 21:16:00) [4]

> tytus (27.06.04 21:11) [11]

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

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

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

begin...end (2004-06-27 21:13:00) [5]

> [10] KilkennyCat © (27.06.04 20:58)

Это отрывок из Вашей программы? :))

tytus (2004-06-27 21:11:00) [6]
>ALL
СПААААСИБОООООО!!! Приятно, что есть чувство юмора...
>Anatoly Podgoretsky
Form.Free/Create - будет ли работать быстрее моего цикла
>то-же для KilkenyCat.

KilkennyCat (2004-06-27 20:58:00) [7]

> 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;

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

Anatoly Podgoretsky (2004-06-27 20:57:00) [8]
Form.Free/Create

tytus (2004-06-27 20:53:00) [9]
>ALL
for i:=ComponentCount-1 downto 0 do
if Components[i].ClassName='TEdit' then
(Components[i] as TEdit).Clear;

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

KilkennyCat (2004-06-27 20:42:00) [10]

> tytus (27.06.04 20:27) [6]

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

tytus (2004-06-27 20:27:00) [11]
>Kil..Cat
Согласен, сработает, но не совсем то, что нужно.

KilkennyCat (2004-06-27 20:23:00) [12]

> tytus (27.06.04 20:15) [3]

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

Anatoly Podgoretsky (2004-06-27 20:22:00) [13]
Вин АПИ ничего не знает про классы Дельфи

tytus (2004-06-27 20:15:00) [14]
>Cardinal>Anatoly Podgoretsky
Да хотелось как-то по-короче написать, хитрее, что-ли...
Может API функция какая есть...

Anatoly Podgoretsky (2004-06-27 20:11:00) [15]
Нельзя, у нас только один процессор

Cardinal (2004-06-27 20:04:00) [16]
А чем не устраивает первый вариант?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »