Delphi. with do

[vykker]

Можно ли сократить повторение кода с помощью with do и как прописать в коде , чтобы программа не прикопалась?
или есть другие варианты

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
DM.TableReiting.Insert;
Form3.ShowModal;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
DM.TableReiting.Insert;
Form3.ShowModal;
end;

[mss]

with .. do - это из другой оперы, применяется он в иных целях.

Да, в определенных случаях он сокращает объем кода, где-то существенно улучшая его человеческое восприятие - не более того. Об отрицательных сторонах его использования - а они есть - пока не говорим.

или есть другие варианты

Так он же в дан.случае прямо напрашивается - как минимум вынести одно и то же тело двух обработчиков в отдельную процедуру и вызывать эту процедуру из этих обработчиков.

[vykker]

т.е.

procedure 123(Sender: TObject);
begin
DM.TableReiting.Insert;
Form3.ShowModal;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
123.open;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
123.open;
end;

принцип вроде такой, но неправильно написано, как правильно?

[vykker]

не получается, скажите как правильно все оформить?

[Mad_Cat]

procedure 123;
begin
DM.TableReiting.Insert;
Form3.ShowModal;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
123;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
123;
end;

[vykker]

Спасибо, очень помогли

[Mad_Cat]

Спасибо, очень помогли

тока самый простой выход был
сделать у обеих кнопок на событие ONClick --- BitBtn3Click например) а лишнюю снести процедуру)