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); ?