---------------------------------------------------
String Manager Copyright (r) by DreamFactory
Version : 1.75 Author : William Yang
Last Update 25 - Aug - 97
---------------------------------------------------
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
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