Difference between revisions of "Unit UltiboUtils"

function GetFirstWord(var AValue:String; ADelimiter:String):String;

function GetLastWord(var AValue:String; ADelimiter:String):String;

function PadString(const AValue:String; AChar:Char;ALength:Integer):String;

function StrOfChar(const AValue:String; ALength:Integer):String;

function StrToBool(const AValue:String):Boolean;

function IntToStrLen(AValue:Integer; ADigits:Integer):String;

function StrToLongWord(const AValue:String):LongWord;

function BoolToStr(AValue:Boolean):String;

function BoolToStrEx(AValue:Boolean; AType:Integer):String;

function InFixStr(const Value:String):String;

function InFixStrEx(const Value:String):String;

function RemoveSpaces(const Text:String):String;

function SpaceCount(const Text:String):Integer;

function NormaliseSpaces(const Text:String):String;

function NormaliseCase(const Text:String):String;

function StringFill(const Text:String; Count:Integer):String;

function RemoveQuotes(const AValue:String):String;

function RemoveBraces(const AValue:String):String;

function RemoveBrackets(const AValue:String):String;

function RemoveSingleQuotes(const AValue:String):String;

function RemoveCurlyBraces(const AValue:String):String;

function IsAlpha(const AValue:String):Boolean;

function IsNumeric(const AValue:String):Boolean;

function RemoveNonAlpha(const Value:String):String;

function AddQuotes(const AValue:String):String;

function AddBraces(const AValue:String):String;

function AddBrackets(const AValue:String):String;

function AddSingleQuotes(const AValue:String):String;

function AddCurlyBraces(const AValue:String):String;

function NoOfChars(const AValue:String; AChar:Char):Integer;

function ReplaceChar(const AValue:String; AChar,AReplace:Char):String;

function EncodeString(const AValue,AKey:String):String;

function DecodeString(const AValue,AKey:String):String;

procedure DelimitStrings(AStrings:TStrings; var AString:String; const ADelimiter:String);

procedure UndelimitString(AString:String; AStrings:TStrings; const ADelimiter:String);

procedure UndelimitQuotedString(AString:String; AStrings:TStrings; const ADelimiter:String);

function AddSlashes(const AFilePath:String):String;

function AddTrailingSlash(const AFilePath:String):String;

function AddLeadingSlash(const AFilePath:String):String;

function StripSlashes(const AFilePath:String):String;

function StripTrailingSlash(const AFilePath:String):String;

function StripLeadingSlash(const AFilePath:String):String;

function AddTrailingDot(const AValue:String):String;

function AddLeadingDot(const AValue:String):String;

function StripTrailingDot(const AValue:String):String;

function StripLeadingDot(const AValue:String):String;

function AddTrailingChar(const AFilePath,ASlashChar:String):String;

function AddLeadingChar(const AFilePath,ASlashChar:String):String;

function StripTrailingChar(const AFilePath,ASlashChar:String):String;

function StripLeadingChar(const AFilePath,ASlashChar:String):String;

function IsWildcard(const Value:String):Boolean;

function UniqueName(const BaseName:String; CurrentNames:TStrings):String;

function WildcardNameMatch(const Name,Wildcard:String; CaseSensitive:Boolean):Boolean;

function AddQuotesIfSpaced(const AValue:String):String;

function ExtractCommand(const ACommandLine:String):String;

function ExtractParameters(const ACommandLine:String):String;

function MultiStringToStrings(ABuffer:Pointer; ASize:Integer; AStrings:TStrings):Boolean;

function StringsToMultiString(AStrings:TStrings; var ABuffer:Pointer; var ASize:Integer):Boolean;

function MultiStringToDelimited(ABuffer:PChar; ADelimiter:String):String;

function DelimitedToMultiString(const AString:String; ADelimiter:String):PChar;

function DuplicateString(AString:PChar):PChar;

function DuplicateWideString(AString:PWideChar):PWideChar;

function DuplicateMultiString(AString:PChar):PChar;

function DuplicateMultiWideString(AString:PWideChar):PWideChar;

function IsRootDirectory(const Path:String):Boolean;

function IsEightDotThree(const FileName:String):Boolean;

function TruncateLongName(const FileName:String):String;

function GenerateShortName(const FileName:String; AliasCount:Integer):String;

function GenerateShortNameEx(const FileName:String; AliasCount:Integer; Hash:Word; UseHash:Boolean):String;

function WildcardFileMatch(const FileName,Wildcard:String; CaseSensitive:Boolean):Boolean;

function GetFileInfo(const FileName:String; var FileTime,FileSize:Integer; var FileAttr:LongWord):Boolean;

function CompareFileInfo(const SourceFile,DestFile:String):Boolean;

function IsCurrentDate(ADate:TDateTime):Boolean;

function IsCurrentTime(ATime:TDateTime):Boolean;

function IsCurrentMinute(AMinute:Integer):Boolean;

function IsCurrentHour(AHour:Integer):Boolean;

function IsCurrentWeekDay(AWeekDay:Integer):Boolean;

function IsCurrentDay(ADay:Integer):Boolean;

function IsCurrentMonth(AMonth:Integer):Boolean;

function IsCurrentYear(AYear:Integer):Boolean;

function GetMinute(ADateTime:TDateTime):Integer;

function GetHour(ADateTime:TDateTime):Integer;

function GetWeekday(ADateTime:TDateTime):Integer;

function GetDay(ADateTime:TDateTime):Integer;

function GetMonth(ADateTime:TDateTime):Integer;

function GetYear(ADateTime:TDateTime):Integer;

function SecondsSince(ADateTime:TDateTime):LongWord;

function MinutesSince(ADateTime:TDateTime):LongWord;

function HoursSince(ADateTime:TDateTime):LongWord;

function DaysSince(ADateTime:TDateTime):LongWord;

function MonthsSince(ADateTime:TDateTime):LongWord;

function YearsSince(ADateTime:TDateTime):LongWord;

function DayOfYear(ADateTime:TDateTime):LongWord;

function SubtractSeconds(ADateTime:TDateTime; ASeconds:LongWord):TDateTime;

function TickCount:LongWord;

function NormaliseDate(const ADate:String):String;

function FormatEmailDate(ADateTime:TDateTime):String;

function ShortMonthToMonth(const AShortMonth:String):LongWord;

function LongMonthToMonth(const ALongMonth:String):LongWord;

function TwoDigitYearToYear(AYear:LongWord):LongWord;

function CheckEmailAddress(const EmailAddress:String):Boolean;

function StripEmailAddress(const EmailAddress:String):String;

function FormatEmailAddress(const FullName,EmailAddress:String):String;

function GetUserFromEmail(const EmailAddress:String):String;

function GetDomainFromEmail(const EmailAddress:String):String;

function CloneSid(ASid:Pointer):Pointer;

function CloneDescriptor(ADescriptor:Pointer):Pointer;

function CompareSid(ASid1,ASid2:Pointer):Boolean;

function CompareDescriptor(ADescriptor1,ADescriptor2:Pointer):Boolean;

function GenerateSidHash(ASid:Pointer; ASize:LongWord):LongWord;

function GenerateDescriptorHash(ADescriptor:Pointer; ASize:LongWord):LongWord;