VPF::как переименовать названия компонентов

ADAM83

Дата 21.2.2009, 09:34 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте всем! У меня на форме имеются около 50-ти Edit-ов, 20-ти Combobox-ы и 10-ти RichEdit-ов. Теперь нужно их значения почистить (Text := '' или Clear). Как можно переименовать эти компоненты, чтоб их названия шли по порядку (просто некоторые компоненты имеют не стандартное имя)? Не охота всех перечислять в коде, а хочется циклом сделать очистку значения. Или в *.dfm-файлах переименовывать названия компонентов? Спасибо заранее.

Akella

Дата 21.2.2009, 12:03 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Цитата(ADAM83 @ 21.2.2009, 09:34

)

а хочется циклом сделать очистку значения.

Так очищай в цикле по компонентам

Christoph

Дата 21.2.2009, 14:09 (ссылка)

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

Загрузка ...

Опытный

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

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

Держи код

Код


var
  i: Integer;
begin
 for i := 0 to ComponentCount - 1 do
  begin
   if Components[i] is TCustomEdit then
      (Components[i] as TCustomEdit).Text := '';
   if  Components[i] is TComboBox then
      (Components[i] as TComboBox).Items.Clear;
  end;
end;

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

Akella

Дата 21.2.2009, 14:51 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Christoph, ну вот, не дал человеку и подумать smile

Добавлено @ 14:52
Так будет быстрее, без as

Код


TCustomEdit(Components[i]).text := '';

Это сообщение отредактировал(а) Akella - 21.2.2009, 14:52

ADAM83

Дата 21.2.2009, 15:01 (ссылка)

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

Загрузка ...

Шустрый

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

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

Christoph, Akella спасибо вам большое, добавлю плюсик.
Еще один вопрос, как правильно будет, использование text := '' или clear? В чем разница?

извиняюсь, оказывается чтоб добавлять кому-то плюсики, нужно иметь неменее 100 постов, а у меня пока не хватает.

Edit1.Clear; Edit1.Text := ''; они одинаковы или нет, какой метод правильнее?

Это сообщение отредактировал(а) ADAM83 - 21.2.2009, 15:19

Akella

Дата 21.2.2009, 15:34 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Цитата(ADAM83 @ 21.2.2009, 15:01

)

Еще один вопрос, как правильно будет, использование text := '' или clear? В чем разница?

как хочешь, а что залезть в исходники и посмотреть, что делает clear религия не позволяет?

ADAM83

Дата 21.2.2009, 15:41 (ссылка)

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

Загрузка ...

Шустрый

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

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

Akella, а вот что там написано

Код


procedure TCustomEdit.Clear;
begin
  SetWindowText(Handle, '');
end;

выходит оба метода одинаковы что-ли?

Akella

Дата 21.2.2009, 15:51 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Выходит да smile

ADAM83

Дата 21.2.2009, 15:59 (ссылка)

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

Загрузка ...

Шустрый

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

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

Тему объявляю закрытой smile

Сэнк всем!

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