Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Строковые Функции    >>    funstr
   
 
 Модуль для Работы со Строками в Pascal и Delphi   Sergey Perevoznik 25.09.1997

Данный модуль содержит несколько наиболее широко используемых функций для работы со строками: преобразование систем счисления, перевод в верхний/нижний регистр, отсечение и выравнивание, выборка и подсчет слов...



4k 
 

{*********************************************************} {* 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