Как лучше оптимизировать код?

Posted by Chas under Delphi

Есть довольно некрасивый код, потому что вовсю используется копипаст. Очень хотелось бы узнать как можно было бы автоматизировать этот процесс.

А вот сам кусочек кода для оптимизации:

procedure TForm2.ProgramLabel1MouseEnter(Send er: TObject);

begin

ProgramLabel1.Font.Style:=[fsBold];

end;

procedure TForm2.ProgramLabel1MouseLeave(Send er: TObject);

begin

ProgramLabel1.Font.Style:=[];

end;
procedure TForm2.ProgramLabel2MouseEnter(Send er: TObject);

begin

ProgramLabel2.Font.Style:=[fsBold];

end;
procedure TForm2.ProgramLabel2MouseLeave(Send er: TObject);

begin

ProgramLabel2.Font.Style:=[];

end;
procedure TForm2.ProgramLabel3MouseEnter(Send er: TObject);

begin

ProgramLabel3.Font.Style:=[fsBold];

end;
procedure TForm2.ProgramLabel3MouseLeave(Send er: TObject);

begin

ProgramLabel3.Font.Style:=[];

end;

Пепел Феникса
назначить всем лейблам один обработчик, а доступ к лейблу вызвавшему событие получать доступ через Sender.
пример

(Sender as TLabel).Font.Style:=[fsBold];

А вот похожий код который не получается оптимизировать:

procedure TForm2.ProgramLabel1Click(Sender: TObject);

begin

NotebookPrograms1.PageIndex:=2;

end;

procedure TForm2.ProgramLabel2Click(Sender: TObject);

begin

NotebookPrograms1.PageIndex:=3;

end;

procedure TForm2.ProgramLabel3Click(Sender: TObject);

begin

NotebookPrograms1.PageIndex:=4;

end;

procedure TForm2.ProgramLabel4Click(Sender: TObject);

begin

NotebookPrograms1.PageIndex:=5;

end;

veniside

NotebookPrograms1.PageIndex := (Sender as TLabel).Tag;

kettanaito
Или как вариант создай свою функцию/процедуру. На случай если в качестве Sender не всегда бывает TLabel.

procedure TForm2.SetNoteBookIndex(Index:Integer);

begin

NotebookPrograms1.PageIndex:=Index;

end;

procedure TForm2.ProgramLabel9Click(Sender: TObject);

begin

SetNotebookIndex(10);

end;

тема на форуме

Похожие статьи

• Как оптимизировать код с большим количеством массивов?
• Оптимизация PHP-скрипта: Что быстрее function или include?