Заставили переписывать старые исходники, а там такое
Подробнее
Unitl.pas while not Eof do begin case FicldByNamc('rsc_scat_id').Aslntcgcr of for i :■ 1 to 38 do begin case i of Is a :« 6;
говнокод,быдлокод,песочница
Еще на тему
a=i+5;
else
a =null;
Хотя помоему тупо пропустили когда писали.
a = (i==24? null : i+5); // Используй тернарные операторы, сука, не перегружай код
Вариант на Perl:
my $a = $i + 5 unless $i == 24; # my по-умолчанию присваивает undef
Вариант на JS для современных программистов:
$.getScript("superLibForAddNumberToNumber.min.js", function() {
SuperAdd.five(1, callback).five(2, callback).five(3, callback)...five(23, callback).five(25, callback)...five(38, callback);
});
Вариант для Java в комментарий не поместится, потому что там должно быть минимум по классу на каждый случай, плюс интерфейс.
Ну да за это я так люблю яву. То что ты написал настолько оптимальней кода на паскале.... ))))))))))