Unit StrMan

--------------------------------------------------- String Manager Copyright (r) by DreamFactory Version : 1.75 Author : William Yang Last Update 25 - Aug - 97 ---------------------------------------------------

Classes

Functions

AppPath -
CharCount -
CompareStrAry -
FillStr - Fill The String With Parameter 'C'
Instr -
LastDir -
LeftStr -
LoCase -
LowCaseStr -
ReadBetween - function RegSearch(Reg: TRegistry; Value: String); begin Reg.
ReplaceAll -
ReplaceOne - Operators = ['+', '-', '*', '/']; HexDecimals = ['0'.
ReturnLine -
RightStr -
RPos -
Split -
SplitStrC -
StrSplit -
TitleCase - Make The First Letter Of Each Word To Upper Case

Types

Constants

Variables


Functions


function AppPath: String;


function CharCount(S : String; C : Char) : Integer;


function CompareStrAry(Source : String; CmpTo : Array of string) : Integer;


function FillStr(Amount : Byte; C : Char) : String;

Fill The String With Parameter 'C'

function Instr(iStart : Integer; Src, Find: String) : Integer;


function LastDir(Dir: String): String;


function LeftStr(S : String; ToPos : Integer) : String;


function LoCase(C : Char) : Char;


function LowCaseStr(S : String) : String;


function ReadBetween(Src, Mark1, Mark2: String): String;

function RegSearch(Reg: TRegistry; Value: String); begin Reg.Rootkey := HKEY_CLASSES_ROOT; Reg. RegSearchNext(Reg, Value); end; function RegSearchNext(Reg: TRegstry; Value: String); begin end;

function ReplaceAll(Source , Target, ChangeTo : String) : String ;


function ReplaceOne(Src, Ch : String; iStart, iCount : Integer ) : String;

Operators = ['+', '-', '*', '/']; HexDecimals = ['0'..'9', 'A'..'F']; Letters = ['a'..'z', 'A'..'Z']; Symbols = ['"', '''', '<', '>', '{', '}', '[', ']', '(', ',', ')']; Masks : array[1..3] of Char = ('*', '?', '#');

function ReturnLine(SList: TStringList; Find: String) : String;


function RightStr(S : String; ToPos : Integer) : String;


function RPos(C: ShortString; Src : String) : Integer;


procedure Split(StringList: TStringList; S : string; C : char);


procedure SplitStrC (S:string; C : char; var head, queue : string);


procedure StrSplit(SrcStr : String; BreakDownPos : Integer; var S1, S2 : String);


function TitleCase(SourceStr : String) : String;

Make The First Letter Of Each Word To Upper Case

Types


Constants


Variables