TDirectMemoryStream -
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 -
TReducedDateTime
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;
TReducedDateTime = record
Year : word;
Month : word;
Day : word;
DOW : word;
Hour : word;
Min : word;
end;