про Edit

← →
MIXER (2006-02-15 14:47) [0]

на форме много Editов. вводятся числа, совершается работа.потом
мужно очистить все Editы для ввода новых данных.
есть ли общая процедура типа Form1.allEdit.text=" " или для каждого нужно писать отдельно

← →
Неуверенный (2006-02-15 14:53) [1]

Может, Findcomponent?
Или FindwindowEx
А там еще кнопка F1 есть...

← →
КаПиБаРа © (2006-02-15 14:53) [2]

http://www.yandex.ru/yandsearch?text=Delphi+Edit+%EE%F7%E8%F1%F2%E8%F2%FC&stype=www

← →
КаПиБаРа © (2006-02-15 14:58) [3]

Что то глючит яндекс
http://delphimaster.net/view/1-1139820130/

← →
Ega23 © (2006-02-15 15:14) [4]

> Или FindwindowEx

Это-то нафига???

← →
MIXER (2006-02-15 16:01) [5]

var
i: Integer;
begin
with form do
for i := 0 to ComponentCount - 1 do
if (Components[i] is TEdit) then
(Components[i] as TEdit).Text := "";

во как!!!!

← →
Stakan © (2006-02-15 16:09) [6]

> (Components[i] as TEdit)

TEdit(Components[i])
Вот так лучше

← →
Ega23 © (2006-02-15 16:16) [7]

> with form do

Ну и как только объект будет называться не form, то, естественно, ничего не получится.

← →
mr. Den (2006-02-15 18:05) [8]

> Ega23 © (15.02.06 16:16) [7]
>
> > with form do
>
>
> Ну и как только объект будет называться не form, то, естественно,
> ничего не получится.

А если так вот ? :)

procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i:=0 to (sender as TControl).Parent.ControlCount - 1 do if (sender as TControl).Parent.Controls[i].InheritsFrom(TEdit) then TEdit((sender as TControl).Parent.Controls[i]).Text := ""; end;

← →
Ega23 © (2006-02-15 18:07) [9]

> А если так вот ? :)

Не получится. Точнее, не всегда будет работать.
Пример:
Форма, на ней панель, на ней ещё две панели, на каждой панели - 100 эдитов.

← →
Vlad © (2006-02-15 18:13) [10]

> mr. Den (15.02.06 18:05) [8]

а если parent у кнопки - TPanel ? А она в свою очередь вложена в еще несколько?

> MIXER (15.02.06 16:01) [5]
> var
> i: Integer;
> begin
> with form do
> for i := 0 to ComponentCount - 1 do
> if (Components[i] is TEdit) then
> (Components[i] as TEdit).Text := "";
>
> во как!!!!

Тоже самое. Это справедливо только для случая, когда все Edit-ы лежат на форме. Если один лежит на TPanel (к примеру), то он не очистится.

Я думаю, рекурсивная функция поможет.

> Тоже самое. Это справедливо только для случая, когда все
> Edit-ы лежат на форме. Если один лежит на TPanel (к примеру),
> то он не очистится.
>
> Я думаю, рекурсивная функция поможет.
>

Здесь ты не прав. Не путай ControlCount с ComponentCount

← →
Неуверенный (2006-02-17 14:25) [13]

Неуверенный (17.02.06 14:25) [13]
Можно. Однако вопрос вполне логичный.

> Только не говори, что этим вообще нельзя

Дык и гланды через задницу можно доставать. А смысл?

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