Скачать Модуль для Работы со Строками в Pascal и Delphi

25.09.1997
Скачать файл (4,73 Кб)

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}
..............................