VPF::Edit.Text - Форум программистов

Анальгин

Дата 29.6.2004, 13:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 14.11.2003

Репутация: нет
Всего: нет

Как в цикле очистить содержимое Text для всех Edit которые на форме ?

gray_k

Дата 29.6.2004, 13:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 1015
Регистрация: 9.1.2003
Где: Москва

Репутация: 3
Всего: 22

Код


for i=0 to Form1.ComponentsCoont-1 do begin
  if Form1.Components[i].ClassNameIs('TEdit') then
    (Form1.Components[i] as TEdit).Text := '';
end;

--------------------

С уважением.
Gray.

NiJazz

Дата 29.6.2004, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Код


var i:integer;
begin
  for i:=0 to Form1.ComponentCount-1 do
    if Form1.Components[i] is TEdit then
      (Form1.Components[i] as TEdit).Clear;
end;

Добавлено @ 13:30
gray_k
Одновременно прислали пост.

SoftLines

Дата 7.7.2004, 12:24 (ссылка)

(нет голосов)

Загрузка ...

ЗАБАНЕН

Профиль
Группа: Участник
Сообщений: 63
Регистрация: 6.7.2004

Репутация: -1
Всего: 1

А можно и вручную!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »