{*********************************************************}
{*                     FUNSTR.PAS                        *}
{*          Copyright (c)  Sergey Perevoznik             *}
{* Portions Copyright (c) TurboPower Software 1987, 1992 *}
{* Portions Copyright 1991 TechnoJock Software, Inc.     *}
{*                 All rights reserved.                  *}
{*********************************************************}


unit FunStr;
  {-Basic string manipulation routines}

interface

Uses SysUtils;

  {-------- Numeric conversion -----------}

function HexB(B : Byte) : string;
  {-Return hex string for byte}

function HexW(W : Word) : string;
  {-Return hex string for word}

function HexL(L : LongInt) : string;
  {-Return hex string for longint}

function HexPtr(P : Pointer) : string;
  {-Return hex string for pointer}

function BinaryB(B : Byte) : string;
  {-Return binary string for byte}

function BinaryW(W : Word) : string;
  {-Return binary string for word}

function BinaryL(L : LongInt) : string;
  {-Return binary string for longint}

function OctalB(B : Byte) : string;
  {-Return octal string for byte}

function OctalW(W : Word) : string;
  {-Return octal string for word}

function OctalL(L : LongInt) : string;
  {-Return octal string for longint}


Function  Str2Byte(S:String)             :Byte;
  {-Return byte for string}

Function  HexStr2Byte(Str:String)        :Byte;
  {-Return byte for hex string}

Function  Str2Word(S:String)             :Word;
  {-Return word for string}

Function  HexStr2Word(Str:String)        :Word;
  {-Return word for hex string}

Function  Str2Int(Str:string)            :Integer;
  {-Return integer for string}

Function  HexStr2Int(Str:string)         :Integer;
  {-Return integer for hex string}

Function  Str2Long(Str:string)           :Longint;
  {-Return longint for string}

Function  HEXStr2Long(Str:String)        :LongInt;
  {-Return longint for hex string}

Function Str2