Цитата:
Сообщение от 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;