[mattafix]

Как оптимизировать данный код? Повторяется до 9 раз. Может как-то наследовать можно? В основном там только меняется индекс "кнопки"

[Vayrus]

Думаю, можно по аналогии с данным кодом:

Код:

1 2 3

for i := 0 to form2.ComponentCount-1 do   if (form2.Components[i] is TButton) then      (form2.Components[i] as TButton).Visible:= true;

А все остальное:
1. Использовать CASE
2. Использовать переменную для имени файла, а саму процедуру загрузки вызывать единожды
3. Повторяющиеся операции выделить в отдельную процедуру\функцию

[mattafix]

Спасибо. Правда 2 не совсем понял

[Vayrus]

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

Спасибо. Правда 2 не совсем понял

Ну если код скинешь с объявленными переменными, то напишу, как должно быть, а то со скриншотами не комильфо работать)

[dr. F.I.N.]

Предположу, что cellN - это кнопки. Если создаете их в Run-time, то при создании задайте свойство Tag. Если кнопки созданы в Design-time (полагаю так и есть), то сразу задайте это свойство каждой кнопке.
Так же предположу что это крестики-нолики с полем 3х3 (хотя не важно), поэтому можно сделать: Tag := cell_num + row_num * 10;
Задайте нажатию всем кнопок одно событие:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.CellClick(Sender: TObject); const   PIC_FILE: array [Boolean] of string = ('<file_name_for_X.jpg>', '<file_name_for_O.jpg>'); var   cell, row: Integer; begin   row := TButton(Sender).Tag div 10;   cell := TButton(Sender).Tag mod 10;   A[row, cell] := Byte(count);   TButton(Sender).Picture.LoadFromFile(PIC_FILE[count]);   TButton(Sender).Enabled := False;   count := not count;   check; end;

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