Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > проверка наличия данных в TEdit, TComboBox ...

Автор: TMoon 8.11.2003, 16:33

Как проверить большое количество компонент формы (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

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

Автор: p0s0l 8.11.2003, 20:03

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

Автор: <Spawn> 8.11.2003, 20:23

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 указал ссылку на основе которой это можно былоб написать

Автор: p0s0l 8.11.2003, 20:31

<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

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

Всем спасибо