Очистка всех memo и Edit'ov

@Eclipse_dp · Регистрация: 18.05.2012

Author24 — интернет-сервис помощи студентам

Есть форма.
На ней есть около 20 элементов с полями для вывода данных.
Как сделать так, что бы по нажатию кнопки Обсалютно все элементы очищали свой "Text"
да бы не накапливались там результаты выполнения программы.

@Vega251 · 20.05.2012, 17:00

Проще всего в процедуре кнопки очищать поля.

Delphi

1 2	Memo1.Clear; Edit1.Text='';

и т.д.
Можно и другими способами, но лень писать

@Puporev · 20.05.2012, 17:16

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to ComponentCount-1 do
 begin
  if (Components[i] is TMemo)then (Components[i] as TMemo).Clear;
  if (Components[i] is TEdit)then (Components[i] as TEdit).Text:='';
 end;
 
end;

@Vega251 · 20.05.2012, 17:17

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

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to ComponentCount-1 do
 begin
 if (Components[i] is TMemo)then (Components[i] as TMemo).Clear;
 if (Components[i] is TEdit)then (Components[i] as TEdit).Text:='';
 end;
end;

Это один из вариантов.

@Eclipse_dp · 20.05.2012, 18:46 **[ТС]**

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

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to ComponentCount-1 do
 begin
  if (Components[i] is TMemo)then (Components[i] as TMemo).Clear;
  if (Components[i] is TEdit)then (Components[i] as TEdit).Text:='';
 end;
 
end;

материт этот код, даже очень
особенно на переменную ComponentCount-

@Puporev · 20.05.2012, 18:53

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

материт этот код, даже очень

У меня не материт, а все нормально очищает, ты наверное списал с ошибками.

@Eclipse_dp · 20.05.2012, 19:08 **[ТС]**

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

У меня не материт, а все нормально очищает, ты наверное списал с ошибками.

SPin не подключал, теперь вопросто в другом.У меня на первой форме кнопка , а на 2ой форме нужно очищать.
Что в коде изменить нужно?

Pascal

for i:=0 to Form2.ComponentCount-1 do
 begin
  if (Components[i] is TMemo)then (Components[i] as TMemo).Clear;
  if (Components[i] is TEdit)then (Components[i] as TEdit).Text:='';
 end;

?

и выдает ошибку при нажатии на кнопочку

@Puporev · 20.05.2012, 19:21

Эта ошибка никак вроде не связана с этим кодом, там речь о невозможности преобразования типа.

@Eclipse_dp · 20.05.2012, 19:29 **[ТС]**

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

Эта ошибка никак вроде не связана с этим кодом, там речь о невозможности преобразования типа.

да это понятно, возникает вопрос, откуда.
Если весь текст в мемках и едитах идет FloatToStr или просто Str

@Puporev · 20.05.2012, 19:36

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to Form2.ComponentCount-1 do
 begin
  if (Form2.Components[i] is TMemo)then (Form2.Components[i] as TMemo).Clear;
  if (Form2.Components[i] is TEdit)then (Form2.Components[i] as TEdit).Text:='';
 end;
end;

@Eclipse_dp 0 / 0 / 0 Регистрация: 18.05.2012 Сообщений: 19
		1
	Очистка всех memo и Edit'ov 20.05.2012, 16:57. Показов 13268. Ответов 9 Метки нет (Все метки) Есть форма. На ней есть около 20 элементов с полями для вывода данных. Как сделать так, что бы по нажатию кнопки Обсалютно все элементы очищали свой "Text" да бы не накапливались там результаты выполнения программы. 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.05.2012, 19:21	8
	Эта ошибка никак вроде не связана с этим кодом, там речь о невозможности преобразования типа. 0

@Eclipse_dp 0 / 0 / 0 Регистрация: 18.05.2012 Сообщений: 19
	20.05.2012, 19:29 [ТС]	9
	Сообщение от Puporev Эта ошибка никак вроде не связана с этим кодом, там речь о невозможности преобразования типа. да это понятно, возникает вопрос, откуда. Если весь текст в мемках и едитах идет FloatToStr или просто Str 0

	20.05.2012, 19:36

Опции темы

Очистка всех memo и Edit'ov

Решение