Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
dimka11
0 / 0 / 1
Регистрация: 22.10.2014
Сообщений: 44
#1

Очистка всех edit-ов одной кнопкой - Delphi

26.02.2016, 18:09. Просмотров 385. Ответов 3
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
8
9
10
procedure Clean; 
var Sender: TEdit; 
begin 
(Sender as TEdit).Clear; 
end;
 {$R *.dfm} 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
Clean; 
end;
Как правильно реализовать?

Добавлено через 1 минуту
Требуется очистка всех edit одной кнопкой.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2016, 18:09
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Очистка всех edit-ов одной кнопкой (Delphi):

Очистка всех memo и Edit'ov
Есть форма. На ней есть около 20 элементов с полями для вывода данных. Как...

Компонент: Edit с кнопкой
Есть ли в делфи edit с кнопкой(...). Ну или можно както кнопку к edit прикрепить

Очистка Edit
Как сделать чтобы, при возвращении с Form2 на Form1, Editы очищались?

Очистка Edit-ов
Здравствуйте! Я пытаюсь сделать очистку Edit-oв. Но при нажатии на кнопку...

Очистка данных в Edit
Всем привет, в моей программе на 1 форме надо ввести логин и пароль, когда их...

Очистка поля Edit.
Вот этот код тока нужно прописать не в самом эдите на событие ОнКлик, а в...

3
Arcor
4816 / 1817 / 380
Регистрация: 20.11.2009
Сообщений: 5,792
Записей в блоге: 1
26.02.2016, 18:14 #2
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure CleanAllEdits(F: TForm);
var i: Integer;
begin
  for i := 0 to F.ComponentCount - 1 do       // пройтись по всей форме
    if F.Components[i] is TEdit then          // найти на ней все эдиты
      TEdit(F.Components[i] as TEdit).Clear;  // найденный эдит очистить
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  CleanAllEdits(Form1) // вызвать очистку эдитов, которые находятся на форме,
                       // в этом случае, все эдиты на главной форме
end;
0
Puporev
Модератор
54137 / 41770 / 28880
Регистрация: 18.05.2008
Сообщений: 98,313
26.02.2016, 18:15 #3
Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to ComponentCount-1 do
if (Components[i] is TEdit)then (Components[i] as TEdit).Clear;
end;
0
dimka11
0 / 0 / 1
Регистрация: 22.10.2014
Сообщений: 44
27.02.2016, 11:32  [ТС] #4
Спасибо!
А как вообще написать свою процедуру с использованием стандартных объектов? Например
Delphi
1
DateTimePicker1.Date :=  Table1.FieldByName('date').Value
в отдельной процедуре?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2016, 11:32
Привет! Вот еще темы с решениями:

Организовать вывод текста в компонент Edit в процедуре, не являющейся кнопкой
Здравствуйте, совсем недавно начал изучать ооп делфи. Раньше программировал...

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

Выполнение двух процедур одной кнопкой
Есть код нажатия кнопки,выполняется функция. procedure...

Общее значение и вызов одной кнопкой несколько процедур
Добрый день, есть программа для выводы двоичного числа. Программа решает и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru