UstrLib

UstrLib adalah library atau pustaka untuk manajemen data string atau Tstrings, melegnkapi keberadaan StrUtils yang merupakan bawaan kompiler Delphi. Library atau pustaka ini pun umum digunakan baik di dalam DFGEN maupun produk DFGEN. Prosedur yang dimuat di dalam deklarasi library ini adalah:

function ReplaceChar(ProcessedText:string; CharSearched,Replacement:Char):string;  overload;

function ReplaceString(s, withs, ins: string): string;

function DeleteSpace(S:string):string;

function ProperCase(sTeks:string):string; overload;

function CapitalizeFirst(sTeks:string):string; overload;

procedure ProperCase(SL:TStringList); overload;

procedure CapitalizeFirst(SL:TstringList); overload;

function AllCharIsUnique(StrCheck: string): boolean;

procedure SplitCSV(csv:string; L:TStrings); overload;

procedure SplitCSV(csv:string; L:TStrings; delimiter,qualifier:char); overload;

procedure SplitCSV(csv:string; L:TStrings; CharSeparator: Char); overload;

function  lengthcsv(csv:string):integer;

function  CutCSV(csv:string;Newlength:integer):string;

procedure Lipatstring(var s:string;panjang:integer);

function ReplaceChar(CharSearched,CharReplace:Char; inS:string):string; overload;

function StringExists(sSearched,CSV: string):boolean; overload;

function StringExists(S: string; InList: TStrings):boolean; overload;

function ReverseString(s:string):string;

function DelNonListedChar(sProcessed, sListChar:string):string;

function DelNonAlphabet(s:string):string;

function DelNonDigit(s:string):string;

function DelNonListedLeadChar(sProcessed,sValidLeading:string):string;

function validchar(c:char;sListChar:string):boolean;

function DelNonLetter(s:string):string;

procedure AppendList(ListAcceptor,ListDonor: TStrings);

procedure UniqueList(AList: TStrings);

procedure TrimLString(AList: TStrings);

function  DelListedChar(sProcessed, sListedchar:string):string;

procedure PartisiString(s:string; MaxPerLine:integer; CharCutted:char; KeList:TStrings);

procedure DeleteCharDuplicate(var s:string; CharUnique: char);

function  DeleteChar(c:char;instr:string):string;

function  MakeCSV(AList: TStrings; Delimiter:string):string;

procedure makeCSVPart(CSVString:string;AListSaved: TStrings; iPartMember:integer);

procedure DeleteEmptyMember(AList:Tstrings);

Bookmark It

Hide Sites