Unit BWTools

Classes

TDirectMemoryStream -

Functions

CenterStr -
CompareReducedDT -
CutLeadBlank -
DateTimeToReduced - asm push edx push esi push edi push ecx @label1: mov ecx, 6 mov esi, T1 mov edi, T2 cmpsw jl @label2 jg @label3 xor eax,eax jmp @ret1 @label2: mov al,$FF jmp @ret1 @label3: mov al,1 @ret1: pop ecx pop edi pop esi pop edx
encode_line -
ExtractWord - with
FullFill - Returns the beginning of the last substring in a string
GetNarrowStr -
InRange -
IsBIn - completes a string with some chars
IsWin95 -
IsWinNT -
LastPos - Centers string in a line
MakeReducedDT - < -1 = 0 > +1
Max -
Min -
ReducedToDateTime -
replace - while
RunProgram - worst case
Str -

Types

TReducedDateTime

Constants

Variables


Functions


function CenterStr(Str:string;len:byte):string;


function CompareReducedDT(T1,T2:TReducedDateTime):boolean;


function CutLeadBlank(s:string):string;


function DateTimeToReduced(T:TDateTime):TReducedDateTime;

asm push edx push esi push edi push ecx @label1: mov ecx, 6 mov esi, T1 mov edi, T2 cmpsw jl @label2 jg @label3 xor eax,eax jmp @ret1 @label2: mov al,$FF jmp @ret1 @label3: mov al,1 @ret1: pop ecx pop edi pop esi pop edx

function encode_line(const buf; size:integer):string;


function ExtractWord(str:string; n:integer):string;

with

function FullFill(Str:String;FLen:byte;symb:char):string;

Returns the beginning of the last substring in a string

function GetNarrowStr(Strn:string; W:integer; Canvas:TCanvas):string;


function InRange(L,R,x:integer):boolean;


function IsBIn(index:integer;storage:byte):boolean;

completes a string with some chars

function IsWin95:boolean;


function IsWinNT:boolean;


function LastPos(SubStr:string; Strn:String):Byte;

Centers string in a line

Function MakeReducedDT(Year,Month,Day,DOW,Hour,Min : word):TReducedDateTime;

< -1 = 0 > +1

function Max(a,b:integer):integer;


function Min(a,b:integer):integer;


function ReducedToDateTime(T:TReducedDateTime):TDateTime;


function replace(var Str:string; SourceString,DestString:string):boolean;

while

function RunProgram(StartName, Params, StartDir : String):THandle;

worst case

function Str(i:integer):string;


Types


TReducedDateTime = record
Year : word;
Month : word;
Day : word;
DOW : word;
Hour : word;
Min : word;
end;

Constants


Variables