Возможно ли упростить..?

[kta87]

Возможно ли упростить ниже представленный код, если да то каким образом мне это сделать?

if (LabeledEdit1.Text = '') or (LabeledEdit2.Text = '') or
    (LabeledEdit3.Text = '') or (LabeledEdit4.Text = '') or
    (LabeledEdit5.Text = '') or (LabeledEdit6.Text = '') or
    (LabeledEdit7.Text = '') or (LabeledEdit8.Text = '') or
    (LabeledEdit9.Text = '') or (LabeledEdit10.Text = '') then
    begin
      ShowMessage('Одно или несколько полей ввода заполнены не верно');
      LabeledEdit1.SetFocus;
      Exit;
    end;

[Кольша]

function valid:boolean;
var
i:integer;
begin
for
i:=1 to 10 do 
if (Tedit as findcomponent('LabeledEdit'+inttostr(i))).text='' then begin
result:=false;
exit;
end;
result:=true;
end;
if valid=false then
    begin
      ShowMessage('Одно или несколько полей ввода заполнены не верно');
      LabeledEdit1.SetFocus;
      Exit;
    end;

[kta87]

Undeclared identifier: 'findcomponent
Хотя использую findcomponent потом еще несколько раз! В чем может быть дело?

[Korben5E]

поставить курсор на findcomponent, нажать F1
посмотреть в каком файле описаны,
добавить этот файл в раздел uses

[Alexan-Dwer]

kta87, если я Вас правильно понял, у Вас программа – форма регистрации, и Вам нужно проверить все поля ввода данных при нажатии на кнопку.
И так, вот код:

procedure TForm1.Button1Click(Sender: TObject);
var
i: 1..10;
begin
for i:=1 to 10 do
if (FindComponent('LabeledEdit'+IntToStr(i)) as TEdit).Text='' then
  begin
ShowMessage('Одно или несколько полей ввода заполнены неверно!');
(FindComponent('LabeledEdit'+IntToStr(i)) as TEdit).SetFocus;
Exit;
  end;

ShowMessage('Регистрация завершена...');
end;

В нем происходит проверка циклом всех полей. Если хотя бы одно из них пустое – вывод сообщения об ошибке, установка фокуса на первый компонент, который не соответствует формату и выход из программы, иначе пользователь увидит сообщение об успешной регистрации…
Надеюсь, Вам это поможет

P.S. Можно улучшить программу, составив массив с названиями компонентов, которые заполнены не по образцу, и вывести его пользователю.

[kta87]

Alexan-Dwer, не совсем так! Перечисленные поля ввода данных, расположенные в разных местах формы, в следствии чего не возможно использовать компоненты типа StringGrid и т.п. , Однако необходимо проверять при выполнении основного расчетного кода программы поля на неверные данные:

 if (LabeledEdit1.Text = '') or (LabeledEdit1.Text = '0') then
 begin
 .... при адеквате;
end else
 begin
  ShowMessage('Сообщение об ошибке');
  LabeledEdit.SetFocus;
  Exit;
 end;