Оптимизация кода

@mserg1972 · Регистрация: 18.12.2013

Студворк — интернет-сервис помощи студентам

Проверяю форму на заполнение всех полей, подсвечиваю красным если не заполнены.
Прошу помочь оптимизировать код, так как вижу что он избыточен, но не могу пока придумать. ПРобовал с Case, но он не хочет работать со строковыми значениями.
И метку ввел, не придумал как через условие это сделать.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TfrmInsMagazin.JvBitBtn_SaveClick(Sender: TObject);
Var
sql_line,mask_email,mask_index:String;
Metka:Integer;
  begin
  Metka:=0;
    with frmInsMagazin do
    Begin
    if JvDBLookupCombo_Gorod.Text='' then
    begin JvDBLookupCombo_Gorod.color:=$00728AFC;Metka:=1; End;
    mask_index:= MaskEdit_Index.text;
    if (mask_index[1]=' ') or (mask_index[2]=' ') or (mask_index[3]=' ')
    or (mask_index[4]=' ') or (mask_index[5]=' ') or (mask_index[6]=' ')then
    begin MaskEdit_Index.color:=$00728AFC;Metka:=1; End;
    if Edit_Adres.Text='' then Begin Edit_Adres.color:=$00728AFC;Metka:=1; End;
    if Edit_Kod.Text='' then Begin Edit_Kod.color:=$00728AFC;Metka:=1; End;
    if JvDBLookupCombo_Divizion.Text=''    then
    begin JvDBLookupCombo_Divizion.color:=$00728AFC;Metka:=1; End;
    if Edit_Name.Text='' then Begin Edit_Name.color:=$00728AFC;Metka:=1; End;
    if Edit_format.Text='' then Begin Edit_format.color:=$00728AFC;Metka:=1; End;
    if JvDBLookupCombo_Yulico.Text='' then
    begin JvDBLookupCombo_Yulico.color:=$00728AFC;Metka:=1; End;
    mask_email:=MaskEdit_Email.text;
    if (mask_email[2]=' ') or (mask_email[3]=' ') or (mask_email[4]=' ') then
    begin MaskEdit_Email.color:=$00728AFC;Metka:=1; End;
    end;
      if Metka=1 then Begin ShowMessage('Не все или с ошибками заполнены поля!');End
      Else
      Begin
      ShowMessage('Ок')
      End;
  end;

@D1973 · 05.02.2018, 12:17

Сообщение от krapotkin

File - New - Other - Inheritable Items

Если ТС делает что-то на допотопной Д7 - там такого просто нет... А версию свою указать он, естественно, не удосужился...

@krapotkin · 05.02.2018, 14:24

что, в D7 не было наследования форм ?
в 2006 точно есть

@D1973 · 05.02.2018, 14:50

Сообщение от krapotkin

в D7 не было наследования форм ?

Если программно -то конечно было, а если вот так, мышкой щелкать - нет (или я не натыкался?

)

@mserg1972 · 06.02.2018, 06:35 **[ТС]**

RAD Studio XE8

@mserg1972 · 06.02.2018, 06:45 **[ТС]**

Не нашел в меню такого пункта

@krapotkin · 06.02.2018, 07:17

значит, вы не создали проект и в нем хотя бы одну форму

@mserg1972 · 06.02.2018, 11:11 **[ТС]**

Что то не могу как передать в функцию форму.
Что то не так я делаю. Пишет ошибку [dcc32 Error] 'TForm' and 'string'

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function Proverka (fForm: TForm): Integer;
Var
Metka:Integer;
Begin
for i := 0 to fForm.ComponentCount - 1 do
   if fForm.Components[i] is TEdit then
      begin
       if TEdit(fForm.Components[i]).Text = '' then
          begin
          TEdit(fForm.Components[i]).Color:=$00728AFC;
           Metka:=0;
       end
    end
Result :=Metka;
End;
 
procedure TfrmInsMagazin.JvBitBtn1Click(Sender: TObject);
Var
frmName:String;
begin
frmName:=(sender as TControl).Parent.Name;
Proverka(frmName);
end;

@Matan! · 06.02.2018, 11:52

Сообщение от mserg1972

function Proverka (fForm: TForm): Integer;

Сообщение от mserg1972

Proverka(frmName);

Видишь разницу?

Добавлено через 2 минуты
В фукнции параметр определяет только форму, а никак не текст. Хочешь определять текс, то либо добавь ещё один параметр, либо измени функцию Proverka.

@mserg1972 · 06.02.2018, 12:00 **[ТС]**

Мне надо что бы функция работала в независимсти от того из какой формы она вызывается.
Но я не могу понять как правильно эту функцию вызвать.

Сама функция понятна

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function Proverka (fForm: TForm): Integer;
Var
Metka:Integer;
Begin
for i := 0 to fForm.ComponentCount - 1 do
   if fForm.Components[i] is TEdit then
      begin
       if TEdit(fForm.Components[i]).Text = '' then
          begin
          TEdit(fForm.Components[i]).Color:=$00728AFC;
           Metka:=0;
       end
    end
Result :=Metka;
End;

А как ее правильно вызвать по нажатию кнопки в форме?

@D1973 · 06.02.2018, 12:23

Сообщение от mserg1972

как ее правильно вызвать

Так и вызывайте:

Delphi
1
Proverka(frmInsMagazin);

@mserg1972 · 06.02.2018, 12:59 **[ТС]**

Нет, так я знаю.
Так работает.
Я не могу вызвать функцию, если у меня форма создана динамически и имя я не знаю.

Вот так я имя узнаю, но как дальше?

Delphi
1
frmName:=(sender as TControl).Parent.Name;

Добавлено через 11 минут
Вот это рабочий вариант, но надо с динамически созданной формой

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
function Proverka (fForm: TForm): Integer;
var
i,Metka,n: integer;
mask_index:String;
begin
Metka:=1;
 for i := 0 to fForm.ComponentCount - 1 do
  if fForm.Components[i] is TEdit then
    begin
    if TEdit(fForm.Components[i]).Text = '' then
       begin
       TEdit(fForm.Components[i]).Color:=$00728AFC;
       Metka:=0;
       end
    end
  else if fForm.Components[i] is TDBLookupComboBox then
    begin
    if TDBLookupComboBox(fForm.Components[i]).Text = '' then
       begin
       TDBLookupComboBox(fForm.Components[i]).Color:=$00728AFC;
       Metka:=0;
       end
    end
  else if fForm.Components[i] is TMaskEdit then
    begin
    mask_index:= TMaskEdit(fForm.Components[i]).Text;
      for  n:= 1 to Length(mask_index) do
        if mask_index[n] = ' ' then
          begin
          TMaskEdit(fForm.Components[i]).Color:=$00728AFC;
          Metka:=0;
          end
    end;
Result :=Metka;
End;
 
//Сохранить новый магазин в базе
procedure TfrmInsMagazin.JvBitBtn_SaveClick(Sender: TObject);
var
frmName:String;
m:Integer;
begin
frmName:=(sender as TControl).Parent.Name;
m:=Proverka(frmInsMagazin);
if m=0 then
  ShowMessage('Есть незаполненное поле')
  Else
  ShowMessage('Все поля заполнены');
end;

@D1973 · 06.02.2018, 14:34

Что мешает вызвать так?

Delphi
1
Proverka((sender as TControl).Parent);

При условии, конечно, что все контролы лежат именно на форме, а не в контейнерах типа TPanel, TGroupBox и т.д.

@krapotkin · 06.02.2018, 14:50

fForm: TForm
где тут указано, что это не динамически созданная форма??

Добавлено через 1 минуту
D1973, лучше так
(sender as TComponent).Owner as TForm

@mserg1972 · 07.02.2018, 05:31 **[ТС]**

Спасибо все работает.

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	05.02.2018, 14:24
	что, в D7 не было наследования форм ? в 2006 точно есть 0

@mserg1972 1 / 1 / 2 Регистрация: 18.12.2013 Сообщений: 239
	06.02.2018, 06:35 [ТС]
	RAD Studio XE8 0

@mserg1972 1 / 1 / 2 Регистрация: 18.12.2013 Сообщений: 239
	06.02.2018, 06:45 [ТС]
	Не нашел в меню такого пункта Миниатюры 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	06.02.2018, 07:17
	значит, вы не создали проект и в нем хотя бы одну форму 1

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	06.02.2018, 14:50
	Сообщение было отмечено mserg1972 как решение Решение fForm: TForm где тут указано, что это не динамически созданная форма?? Добавлено через 1 минуту D1973, лучше так (sender as TComponent).Owner as TForm 3

@mserg1972 1 / 1 / 2 Регистрация: 18.12.2013 Сообщений: 239
	07.02.2018, 05:31 [ТС]
	Спасибо все работает. 0

Оптимизация кода

Решение