Оптимизация кода

[Shouldercannon]

Как можно оптимизировать данный код, а то он слишком огромный?

  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_alesserfate' then LoadJPEGFromRes('dm_alesserfate', ImageMaps.Picture)
  else LoadJPEGFromRes('noscreen', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_alley' then LoadJPEGFromRes('dm_alley', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_auriga' then LoadJPEGFromRes('dm_auriga', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_bunker' then LoadJPEGFromRes('dm_bunker', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_colony' then LoadJPEGFromRes('dm_colony', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_compound' then LoadJPEGFromRes('dm_compound', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_depot' then LoadJPEGFromRes('dm_depot', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_fury151' then LoadJPEGFromRes('dm_fury151', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_hanger' then LoadJPEGFromRes('dm_hanger', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_leadworks' then LoadJPEGFromRes('dm_leadworks', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_lucifer''sfate' then LoadJPEGFromRes('dm_lucifer_sfate', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_outpost4' then LoadJPEGFromRes('dm_outpost4', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_quarantine' then LoadJPEGFromRes('dm_quarantine', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_reservoir' then LoadJPEGFromRes('dm_reservoir', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_stronghold' then LoadJPEGFromRes('dm_stronghold', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'dm_verloc' then LoadJPEGFromRes('dm_verloc', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'evac_alley' then LoadJPEGFromRes('dm_alley', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'evac_auriga' then LoadJPEGFromRes('evac_auriga', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'evac_colony' then LoadJPEGFromRes('dm_colony', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'evac_fury151' then LoadJPEGFromRes('dm_fury151', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'evac_hanger' then LoadJPEGFromRes('evac_hanger', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'evac_verloc' then LoadJPEGFromRes('evac_verloc', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'over_alley' then LoadJPEGFromRes('dm_alley', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'over_compound' then LoadJPEGFromRes('over_compound', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'over_leadworks' then LoadJPEGFromRes('dm_leadworks', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'over_quarantine' then LoadJPEGFromRes('dm_quarantine', ImageMaps.Picture);
  if Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) = 'over_stronghold' then LoadJPEGFromRes('dm_stronghold', ImageMaps.Picture);

Суть кода заключается в отлове названия карты Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) и сравнения с заданными значениями.

[zumm]

мб case поможет?

[DomiNick]

Эм... А что оно должно делать-то?)
А то "многа букофф" (с)



Дык вынести хотя бы Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9) для начала...

[W0LF]

case не работает со "string'овыми" значениями...

[Selestis]

Для начала можно эту длинную конструкцию записать в переменную.

s:=Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9)

А ещё можно сделать массив соответствий строк-ключей и строк-значений и пройти циклом...

[Miha85193]

Для строковых параметров используйте массивы, вида:

const
ValueSt: array[1..n] of string = ('параметр1', 'параметр2'.. 'параметрn')

или:
var
ValueSt: array[1..n] of string = ('параметр1', 'параметр2'.. 'параметрn')

За тем примените цикл for I := 1 to n do, в котором напишите условия и подставляйте в них значения ValueSt[I].

[zumm]

case не работает со "string'овыми" значениями...

не надо учить, знаю я...но строковые значения можно вполнепреобразовать в числовые.

[DomiNick]

Хм... Если бы совпадали названия в ресурсах и строки то было б вообще просто...

evac_fury151 / dm_fury151

[Selestis]

Не знаю что у вас в коде за данные, но во второй колонке всегда "dm_*", значит можно заменить в первой всё до "_" на "dm" и грузить изображение!

[DomiNick]

Да, да... Я именно об этом... Только по мне проще кажется либо и исходной строке менять, либо ресурсы подправить...
И тогда останется примерно такое:

LoadJPEGFromRes(Copy(s, Pos('\mapname\', s)+9, Pos('\gametype\', s)-Pos('\mapname\', s)-9), ImageMaps.Picture);