Йа волосат и бородат!
Вот за что я не люблю свою работу, так за код вида:
case (smth) of
a: begin if () then begin end else begin end;
b: begin if () then begin end else begin end;
c: begin if () then begin end else begin end;
d: begin if () then begin end else begin end;
end;
А иногда все это еще и в 1 строчку....
case (smth) of
a: begin if () then begin end else begin end;
b: begin if () then begin end else begin end;
c: begin if () then begin end else begin end;
d: begin if () then begin end else begin end;
end;
А иногда все это еще и в 1 строчку....