Цитата:
Сообщение от dr. F.I.N.
использовать простую ХЭШ функцию и оператор CASE
Код:
function MySimpleHash(a, b: Byte): Word;
begin
Result := (a shl 8) or b;
end;
...
case MySimpleHash(a, b) of
...
...
...
...
end;
...
|
Это сначало надо высчетать самому что переменные выдают?
Код:
begin
ShowMessage(IntToStr(MySimpleHash(26, 49)));
case MySimpleHash(26, 49) of
6705:ShowMessage('26-49');
end;
end;