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

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

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

S>Я тоже особого криминала не вижу. Хотя, насколько я помню, в паскале case работает со строками.

не работает. только с ordinal types: char, byte, integer, dword etc.

ну и вызывать Trim() 900 раз....

неужели так сложно было

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