Здравствуйте, Sharov, Вы писали:

S>Здравствуйте, Jack128, Вы писали:

J>>

J>>if Trim(FName)='Пустой идентификатор' then Result := aNone
J>> else if Trim(FName)='Учитываемая позиция' then Result := aActivePos
J>> else if Trim(FName)='Номер позиции по смете' then Result := aNpp
J>> else if Trim(FName)='Номер позиции по порядку (в актах выполненных работ)' then Result := aNppImp
J>>  // далее 900 таких же строк
J>>

S>Тут что не так, за исключением того, что Trim, возможно, будет вызываться 900 раз?


дизайн приложения очень фиговый. это означит что эти строки не только здесь фигрурируют но и где-то еще, и если кто-нибудь попросит немного поменять текст — замудохаешься его менять в двух (я подозреваю что при описанном стиле кодирования то и в трех и в четырх и т.д.) местах.
т.е. вместо этих магических строковых констант должен быть енум, типа EMPTY_ID("Пустой идентификатор"), ...
c enumами можно swtich/case использовать. правда я не знаю есть ли енумы в дельфи или что тут за язык