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

[naneutral]

Не проще сделать множество в котором будут названия всех нужных карт, потом сделать s:=Copy(s, Pos('\mapname\', s) + 9, Pos('\gametype\', s) - Pos('\mapname\', s) - 9), проверить содержится ли значение в этом множестве, ну а потом если да то грузим картинку, если нет, то ... делаем еще чего-нить). Строчки 3-4 кода получится.

[Utkin]

Сообщение от Shouldercannon

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

А зачем? Почему Вы решили что он огромный? Огромный он если экзе будет в пять раз больше или время выполнения дольше. а если Вы все это умудрились написать, то зачем теперь исправлять? Пусть будет китайский код.

[naneutral]

Вот простой пример(не самый оптимальный):

Var
maps:array[1..5] of string[20]=(('dm_alesserfate'),('dm_alley'),('dm_auriga'),
                                  ('dm_bunker'),('dm_colony'));
.........

function getMap(s:string):boolean;
Var
    i:integer;
Begin
     for I := 1 to 5 do
         if Edit1.Text=maps[i] then
            Begin
                 result:=True;
                 Break;
            End
         else result:=False;
End;

........

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

if getmap(s) then LoadJPEGFromRes(s, ImageMaps.Picture)
else showMessage('Error');

[Utkin]

Если результат функции сразу инициализировать FALSE, то процесс можно ускорить на пару тиков, за счет отказа от ложной ветви .

[DomiNick]

Чем плох мой вариант из #10? Если можно чуть поменять названия этих карт в ресурсах или в строке S, то думаю это самый лучший вариант...

[Shouldercannon]

Сообщение от Utkin

Если результат функции сразу инициализировать FALSE, то процесс можно ускорить на пару тиков, за счет отказа от ложной ветви .

Имеете ввиду так

function getMap(s:string):boolean;
Var
    i:integer;
Begin
     for I := 1 to 5 do
         if Edit1.Text=maps[i] then
            Begin
                 result:=False;
                 Break;
            End
End;

[Korben5E]

так....

Begin

result:=False;

     for I := 1 to 5 do
         if Edit1.Text=maps[i] then
            Begin
                 result:=True;
                 Break;
            End
End;

[Shouldercannon]

Сообщение от naneutral

Вот простой пример(не самый оптимальный):

Var
maps:array[1..5] of string[20]=(('dm_alesserfate'),('dm_alley'),('dm_auriga'),
                                  ('dm_bunker'),('dm_colony'));
.........

function getMap(s:string):boolean;
Var
    i:integer;
Begin
     for I := 1 to 5 do
         if Edit1.Text=maps[i] then
            Begin
                 result:=True;
                 Break;
            End
         else result:=False;
End;

........

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

if getmap(s) then LoadJPEGFromRes(s, ImageMaps.Picture)
else showMessage('Error');

maps:array[1..5] of string[20] - для чего тут 20?

[mutabor]

Согласен с Уткиным, раз уж ты уже его написал, какой смысл переписывать? Быстрее работать не станет. В следующий раз пиши циклом, сэкономишь свое время, первый раз будет дольше, с учетом времени на то, чтобы понять и разробраться как же написать, но зато потом подобные вещи будешь писать быстро. Как говорили в одном мультике - "Лучше день потерять, потом за пять минут долететь"

[Utkin]

Korben5E, сразу Exit. Зачем Break? Это дольше .