1 Topic by kovalenko (edited by kovalenko 2017-09-14 07:33:31)

  • From: Санкт-Петербург
  • Registered: 2017-03-09
  • Posts: 266

Topic: Можно ли скриптом закоментить другой скрипт.

Дмитрий вопрос такой, может он и тупой, но интересно для дальнейшего развития...
Ситуация, есть набор скриптов, который отрабатывает при открытии формы, для примера:

procedure frmSerials_OnShow (Sender: string; Action: string);
var
   i,c,q: integer;
   s: string;
begin
     q := 0;
     c := frmSerials.TableGrid1.RowCount - 1;
     for i := 0 to c do
  if frmSerials.Edit1.Text <> '' then   
   begin
   frmSerials.Edit3.Text := frmSerials.TableGrid1.Cells[1,i];
   end;
   if frmSerials.Edit2.Text <> '' then     
   begin
   frmSerials.Edit4.Text := frmSerials.TableGrid1.Cells[2,i];
   end;

if (frmSerials.Edit3.Text <> '') or (frmSerials.Edit4.Text <> '') then 
   begin
   frmSerials.Button6.Enabled := False;
   end else frmSerials.Button6.Enabled := True;

if (frmSerials.Edit1.Text <> '') or (frmSerials.Edit2.Text <> '') then 
   begin
   frmSerials.CheckBox1.Checked := True;
   end else
   begin
   frmSerials.CheckBox2.Checked := True;
   end;

if (frmSerials.Edit3.Text = '') and (frmSerials.Edit4.Text = '') then
   begin
    if MessageDlg(  'Серийный номер в базе не обнаружен, добавить?  ', mtInformation, mbYes+mbNo, 0) = mrYes then
   frmSerials.Button6.Click;
   end;
end;


Всё работает, всё хорошо. Так вот, можно-ли прописать в начало скрипт, который отменит отработки последующих скриптов ниже/далее до конца процедуры procedure frmSerials_OnShow (Sender: string; Action: string); ?

надо идти вперёд....
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Можно ли скриптом закоментить другой скрипт.

можете написать exit;
пример

procedure frmSerials_OnShow (Sender: string; Action: string);
 var
   i,c,q: integer;
   s: string;
 begin
     exit;
     q := 0;
     c := frmSerials.TableGrid1.RowCount - 1;
...
Dmitry.