Школоло / Говнокод #7345 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  10. 10
  11. 11
procedure TForm1.Image1Click(Sender: TObject);
begin
 sPictureName := Label2.Caption;
 Form2.Show;
end;

procedure TForm1.Image2Click(Sender: TObject);
begin
 sPictureName := Label3.Caption;
 Form2.Show;
end;

Знаю конечно что уныло, но по моему делать одну процедуру из-за этого слишком геморройно. С тем же массивом из 2-х элементов хотя бы. Говно ли?

Запостил: Govnocoder#0xFF Govnocoder#0xFF, (Updated )

Комментарии (57) RSS

Добавить комментарий

Семь раз отмерь — один отрежь, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓