[M.A.D.M.A.N.]

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

or здесь не подходит, похоже придётся примерно так делать

Код:

...
 prosedure ptg(ds: integer);
  begin
    Label1.Caption:='Сработало условие ' + IntToStr(ds);

    Здесь выполнение then ..

  end;

begin
 if (условие 1) then ptg(1);
 if (условие 2) then ptg(2);
 if (условие 3) then ptg(3);
 if (условие 4) then ptg(4);
end;

А если условия однотипные, напр if i=1{2,3,3 etc.} то можно и кейсом пройтись

Код:

...
 prosedure ptg(ds: integer; condition:  boolean);
  begin
    if condition then
    begin
      Label1.Caption:='Сработало условие ' + IntToStr(ds);

      Здесь выполнение then ..
    end;
  end;

begin
 ptg(1, a=b);
 ptg(2, a=b);
 ptg(3, a=b);
 ptg(4, a=b);
end;