использовать простую ХЭШ функцию и оператор CASE
Код:
function MySimpleHash(a, b: Byte): Word;
begin
Result := (a shl 8) or b;
end;
...
case MySimpleHash(a, b) of
...
...
...
...
end;
...
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
|