home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1997 May
/
Pcwk0597.iso
/
delphi
/
tstrclas.lzh
/
SAFESTR.INT
< prev
next >
Wrap
Text File
|
1995-11-11
|
1KB
|
38 lines
UNIT SafeStr;
{ :::::::::::::::::::::::::::::::::::::::::::::::::::::: }
INTERFACE
{ :::::::::::::::::::::::::::::::::::::::::::::::::::::: }
USES
SysUtils,
WinProcs,
WinTypes;
{ :::::::::::::::::::::::::::::::::::::::::::::::::::::: }
FUNCTION SafeStrLen(Source: PChar) : WORD;
FUNCTION SafeStrNumComp(S1,S2: PChar) : INTEGER;
FUNCTION SafeStrComp(S1,S2: PChar) : INTEGER;
FUNCTION SafeStrIComp(S1,S2: PChar) : INTEGER;
FUNCTION SafeStrLIComp(S1, S2 : PChar; Length : Word) : Integer;
FUNCTION SafeStrCopy(Dest,Source: PChar) : PChar;
FUNCTION SafeStrCat(Dest,Source: PChar) : PChar;
FUNCTION StrStrip(Dest,Source: PChar) : PChar;
FUNCTION SafeStrUpper(Source: PChar) : PChar;
FUNCTION SafeChPos(Source : PChar; Ch : CHAR) : WORD;
FUNCTION SafeChInsert(Source : PChar; Ch : CHAR; Pos : WORD) : PChar;
FUNCTION SafeStrInsert(Source,NewStr : PChar; Pos : WORD) : PChar;
FUNCTION SafeStrMid(Dest,Source : PChar; Start,Count : WORD) : PChar;
FUNCTION SafeStrDelete(Source : PChar; Start,Count : WORD) : PChar;
FUNCTION SafeStrCopyNL(Dest,Source: PChar) : PChar;
FUNCTION SafeStrCatNL(Dest,Source: PChar): PChar;
{ :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: }