3 условия проверки. Оптимизация.

[artemavd]

Доброе утро! Интересует оптимизация кода. У меня проверяется три условия. Например так (псевдоусловия):

 if (A = '+') and (B = '+') and (K = '10') then
 begin
  ...
 end;
 if (A = '+') and (B = '+') and (K = '11') then
 begin
  ...
 end;
 if (A = '+') and (B = '+') and (K = '12') then
 begin
  ...
 end;
 if (A = '+') and (B = '+') and (K = '13') then
 begin
  ...
 end;
 if (A = '+') and (B = '+') and (K = '18') then
 begin
  ...
 end;

Вместо "..." код совершенно одинаковый. Как можно оптимизировать и записать код короче? Параметр К может идти как по порядку, так и нет.

[Slym]

... вынести в отдельную процедуру

if (A = '+') and (B = '+') then
begin
 if (K = '10') then
 begin
   someproc;
 end;
 if (K = '11') then
 begin
   someproc;
 end;
 if (K = '12') then
 begin
   someproc;
 end;
 if (K = '13') then
 begin
   someproc;
 end;
 if (K = '18') then
 begin
   someproc;
 end;
end;

или

case StrToInt(K)
10:
11:
...

[artemavd]

Можно пример с case подробнее увидеть?
Добавлено в 12:51:
Вынос в отдельные процедуры не помог.

[Slym]

а подробней некуда после двоеточия твой код
ты весь код приведи или файлом зацепи чтоб окинуть полным взглядом

[Пепел Феникса]

if ((A='+')and(B='+')and(K in [10..13,18])) then  //...

[artemavd]

Пепел, в категорию у меня возвращается значение их хранимой процедуры sp2 так:

К:=Form1.sp2.FieldByName('KATEGORIA').AsString;

На запись вида

if ((A='+')and(B='+')and(K in [10..13,18])) then  //...

ругается при работе программы и говорит, например если к=91 (строковое значение), то пишет сообщение

"91 " is not valid integer value

Писал сообщение об ошибке на память, но, думаю, что смысл ясен.
Как тогда записать-то?

[Utkin]

"91 " is not valid integer value

Ну здесь же просто - он ругается что это строка (точнее, что это не число). Ну так ты ее предварительно:

StrToInt(Trim(K)) in [10..13,18]

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

[artemavd]

Ну здесь же просто - он ругается что это строка (точнее, что это не число).

Да, я уже тоже так и понял, что из-за пробелов. Поэтому я написал так:

...
 k:=Trim(Form1.sp2.FieldByName('KATEGORIA').AsString;
...

а дальше, в условиях пришлось так писать:

if (А = '+') and (В = '+') and (StrToInt(k) in [51..53,89..99]) then //...

Сейчас код работает и отрабатывает и не выдает той ошибки более.

Дурацкий вопрос, конечно но что за задача и почему она нуждается в оптимизации по скорости? То есть обычно когда начинается экономия на спичках, то возможно стоит пересмотреть вообще сам алгоритм? Попробовать решение по-другому?

Нынешний вариант кода итак является другим решением и самым оптимальным для решения этой задачи . Просто запарка с этим условием. Если кратка, то задача такая: программа обрабатывает поступающие файлы одного типа, запрашивает конфиденциальную информацию из 3 разных баз данных и формирует файлы другого типа на основе полученной информации. Для этого и нужны эти условия. Это третья версия обработчика. С точки зрения логики она является правильной.
Сейчас, когда код отрабатывает, то добавленное условие

StrToInt(k) in [51..53,89..99]

не влияет на результат формирования...Буду дальше пытаться искать причину этому. Эх..

[Utkin]

k:=Trim(Form1.sp2.FieldByName('KATEGORIA').AsString;

СтрТоИнт надо сюда, а не в условие. Ну попробуй, может быстрей будет (хотя сейчас компиляторы больно умные стали, может и не выиграешь ничего). А вообще можно еще вместо СтрТоИнт свою функу забабахать. Надо посмотреть как она устроена, если без ассемблерных вставок, то можно и ассемблером модернизировать. А можно еще и сделать, чтобы сканила до первого пробела, то есть исключить Трим из присваивания.

[artemavd]

СтрТоИнт надо сюда, а не в условие.

Ну дак он у меня и идет в условии.

А вообще можно еще вместо СтрТоИнт свою функу забабахать.

Да не думаю, что дело-то собственно тут в StrToInt. Она всего лишь переводит строку в число, это сделано.