VPF::проверка наличия данных в TEdit, TComboBox ...

TMoon

Дата 8.11.2003, 16:33 (ссылка)

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

Загрузка ...

Новичок

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

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

Как проверить большое количество компонент формы (TEdit, TComboBox …) на наличие данных, используя наименьшее количество кода?
Пробовал так:

Код


For m := 0 to ComponentCount - 1 do if Components[m] is TEdit then
   if TEdit(Components[m]).Tag in [1,2,3,5,8,10,12,13,14,17,18,19,22] then
   if TEdit(Components[m]).Text = '' then TEdit(Components[m]).Color := clRed;

может, кто знает, как сделать проще?

Vit

Дата 8.11.2003, 18:25 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

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

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

http://forum.vingrad.ru/index.php?act=ST&f=32&t=863

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

p0s0l

Дата 8.11.2003, 20:03 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Проще - вряд ли. Но если у тебя тормозит, то попробуй немного оптимизировать код. Например, после создания формы все TEdit вынеси в отдельный массив - тогда у тебя перебор будет намного меньше...

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

С уважением, г-н Посол.

<Spawn>

Дата 8.11.2003, 20:23 (ссылка)

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

Загрузка ...

Око кары:)

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

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

p0s0l Проще можно сделать, если не изменять названия контролов и известно их количество:

Код

for i:=1 to MAX_EDIT_CONTROLS do
begin
  Edit:= TEdit(FindComponent(Format('Edit%d', [i])));
  if Length(Edit.Text) = 0 then
    Edit.Color:=clRed;
end;

PS кстати Vit указал ссылку на основе которой это можно былоб написать

Это сообщение отредактировал(а) <Spawn> - 8.11.2003, 20:28

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

p0s0l

Дата 8.11.2003, 20:31 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

<Spawn>, а как интересно FindComponent работает ? Посмотри, пожайлуста - получится еще медленнее, чем обычный перебор...

Код

function TComponent.FindComponent(const AName: string): TComponent;
var
  I: Integer;
begin
  if (AName <> '') and (FComponents <> nil) then
    for I := 0 to FComponents.Count - 1 do
    begin
      Result := FComponents[I];
      if SameText(Result.FName, AName) then Exit;
    end;
  Result := nil;
end;

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

С уважением, г-н Посол.

<Spawn>

Дата 8.11.2003, 20:36 (ссылка)

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

Загрузка ...

Око кары:)

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

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

p0s0l Угу не посмортрел

, только об этом подумал. Тогда можно былоб так сделать

Код

for i:=0 to ComponentCount-1 do
if Components[i] is TEdit then
  if Length(TEdit(Components[i]).Text) = 0 then
    TEdit(Components[i]).Color:= clRed;

Хотя я не знаю, что будет быстрее проверка на вхождение в множество или RTTI. Это нужно тестить. Ну а на крайняк только, как ты уже предложил, помещать в массив.

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

TMoon

Дата 8.11.2003, 22:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Всем спасибо

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