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

[Utkin]

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

Прочтите внимательно что я написал.

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

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

[artemavd]

Прошу прощения, неправильно прочитал. Да, я написал в момент присваивания эти две функции так:

 if Form1.sp2.FieldByName('KATEGORIA').AsString <> '' then
 begin
  k:=StrToInt(Trim(Form1.sp2.FieldByName('KATEGORIA').AsString));
 end;

Затем поменял тип переменной k с string на integer. А в условиях убрал StrToInt(). На результат опять же не повлияло...

[Utkin]

Form1.sp2.FieldByName('KATEGORIA').AsString <> ''

Есть тоже идейка, если по скорости

Form1.sp2.FieldByName('KATEGORIA').AsString > ''

это вроде быстрей, а по функциональности идентично. Или я ошибаюсь?

[Вадим Мошев]

Сообщение от 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;

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

Тему не читал практически. Могу посоветовать вот что:

if a+b = '++' then
		begin
			if k = '1' then
					begin
					...
					end;
					
			if k = '2' then
					begin
					...
					end;
					
			if k = '4' then
					begin
					...
					end;
					
		end;

как-то так...

[Utkin]

как-то так...

У него нечистое к, а может содержать пробелы.

[chertovich]

У него нечистое к, а может содержать пробелы.

А так же другие символы из-за всей кодовой страницы)
Поэтому надо добавить проверку корректности данных.

artemavd, если в атрибуте KATEGORIA у вас хранятся цифры, то почему у данного поля строковый тип, а не целочисленный?

Между прочем можно так:

var
  K: Integer;
begin
  К := Form1.sp2.FieldByName('KATEGORIA').AsInteger;
  if (A = '+') and (B = '+') and (K in [10..13, 18]) then  //...