[LAV45]

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

точна, можно было "оф чар" сделать. и тупо присваивания, не вызывая функцию!

Это как ? ))
xkor, с проверкой на длину строки это я погорячился, да и парядок байт менять на обратный не обязательна.

Данная функция нужна для работы со спроками используя case

str := copy(s,idx,4);
case GetInt(str) of
  ......
end;

вариант с TStringList по моему как-то жирно тут выглядит

str := copy(s,idx,4);
case tag.IndexOf(str) of
  ......
end;

initialization
  tag := TStringList.Create;
  tag.CommaText := 'трам,пам ,пам';
finalization
  tag.Free;