Function Left(S : string;Size : byte; Pad : char):string;
var temp : string;
begin
Fillchar(Temp[1],Size,Pad);
Temp[0] := chr(Size);
If Length(S) <= Size then
Move(S[1],Temp[1],length(S))
else
Move(S[1],Temp[1],size);
Left := Temp;
end;
Function Center(S : string;Size : byte; Pad : char):string;
var
temp : string;
L : byte;
begin
Fillchar(Temp[1],Size,Pad);
Temp[0] := chr(Size);
L := length(S);
If L <= Size then
Move(S[1],Temp[((Size - L) div 2) + 1],L)
else
Move(S[((L - Size) div 2) + 1],Temp[1],Size);
Center := temp;
end; {center}
Function Int_to_Str(I : Longint):string;
var S : string[11];
begin
Str(I,S);
Int_to_Str := S;
end;
Function CalcCol(Entry : byte) : byte;
{ returns the display column of the file}
begin
CalcCol := Succ(Pred(Entry) MOD D.cols);
end;
Function CalcRow(Entry : byte) : byte;
{ returns the display row of the file}
begin
CalcRow := Pred(Entry + D.cols) DIV D.cols;
end;
Function Subdirectory(Attrib:byte): boolean;
begin
Subdirectory := ((Attrib and 16) = 16);
end;
Function ValidPathName:Boolean;
begin
If PathName[Length(PathName)] <> '\' then
PathName := PathName + '\';
{$I-}
If (length(PathName) = 3) and (PathName[2] = ':') then
Chdir(PathName)
else
ChDir(copy(Pathname,1,length(Pathname) - 1));
{$I+}
ValidPathName := (IoResult = 0);
end; {ValidPathName}
Function FileDetails(F:FileRecord):string;
var
DT : DateTime;
Str: string;
begin
UnPackTime(F.Time,DT);
Str := Int_to_Str(F.Size)+' '
+Int_to_Str(DT.Month)+'-'+Int_to_Str(DT.Day)+'-'
+copy(Int_to_Str(DT.Year),3,2)
+' '+Int_To_Str(DT.Hour)+':'+Int_to_Str(DT.Min);
FileDetails := Str;
end;
Function ExtractPrevDir(Path : string): string;
begin
Repeat
Delete(Path,length(Path),1);
Until ( copy(Path,length(Path),1) = '\') or (length(Path) = 0);
Delete(Path,length(Path),1);
If length(Path) > 2 then
ExtractPrevDir := Path0)string;string;sd d d;
;
;wswsw((L((L(FUFUFeft(chrchar(mp[mp[m 'r r r TLef┬TITITY imto_Se -cur /$4 /$4 B B B;
v;
v;AnAnAed Xtra : byte;
begin
If D.DateTime then
ra := 1
else
a := 0;
If D.
IfTime and (D.cols < 4) then n ns := 4; s s .colsolso 1) or (D(D( 1) > 6) then D.cols := 6;:= 0:= 0:Rows or1)s := 6 := 6 FUFxt (D> 23) then D. D. := 23 - - a;
If 1)sTopX a) o or1D.D.D > (79 - 6) *13)6;: en:= 06) = 6 (D>6 opXD.col else
pX := 40 - ( 1)scols p or1D+ 2 ) div 2*1 D. (D>6X aD.D*1 X := 1:= 1:3)6opY1)sRa;or or opY6 o(24 lse.1)sT- 4)))
surrtex= 1) and = 1)hen;es Y +D.Nnl and not otFred(Cilerep );
X=Dc w( Findndn ,aca : .1-}
FreMaskchrcDAttrib, ile t t .1.a rchrcDArep:= True;
end;
t4l Name := ( :.1.a rc Filels(rameamea AttrchrcDb+chrcDb+cile.AttrAttrA Size Size SrrrrrSizeSizeSFasD.D.DrrrTimeTimeT Name :darc ,acAttrAle S if (Name <> ',J : es Y otFrles := SnotaskcFilesFilesF re D with }
until ( ( Attribf 1chrcDB*-+6) *D.DDOSError = 1888 Morec(f;Siz;Siz;SSSror *-+618 ( ec; {p S Fild; { Ms }
Rec=e }
1nin in iIf SCIf SCI DDirecox
'(2(4 {nileN- 4Sub = n6m.Dubr ,0'lo
Msuntessage);
ubr ,lo
s a;a end;
tage,eTotf+ 2to Mco 1) :DOfor J Il Il 1)sT1)sT1st') := FNCharzezlen n
1aI,J= D, SizeOfOfO'+ s >ns >ns= D), 0);
if di a:rMe orCurrPMe;
end;
t C.1.a rc ry.or X
0); Co: i te(.2 +eto Pred(((Data)e )DODOD ss;
ge)ay flenFasDlenFge := rtc(c(cy :b
,J rD.DNo := := {v;
;
;chRB BC
Refiles=); { : Sad c.1.a rc ent directory h Totf+ or X y c; );
)lse Der ;cnd}6
oxCol), sor X();
X=Dc left('
F length( := FNCer Xlen,#205me,
If (2aathre H) + 1FUFlength(FileMask * or 23o.T (D>6;
= #209= #209=it H H ) div) div) : St^.me,es Y es Y eL)L)LJJJ C C lse Dlse Dl : : \\\\\\\\\\\\\\\\\\\\\ c; )BaBaB),;)7E7E7D /$I$I$e( te( teDTDTD(2(+Int+Int+) <) <)ck;FunctFunctF;
CursCursCt4lt4lt; ; ;LefLefL┬┬┬ 19 19 Haaa5;
5;
5astw e= #20= #20=;
e;
e;0;ix cx cxisisiununute(te(t := 2 Len Len e }e }eme me m└└└es es eletletltex=ctex=ctastw n
D D );
aaae( tI-I-I or1Danta : BaPr{wßßßNeNeNn
8;8;8s)e ae ae BaP}
F}
F}: st╫╫╫e; e; e6;: e var iivar iiv orC h orC h }
m}
m}'+ sSize)+Size)+S,l,l, se Re Reááá :c :c 0;0;0 H H L)L)L the tX,X,X00 ):= 12 X:= 12 X:FaFaFs }s }sor X H FUF#a;
D.CeMaegerNN Fe Fe '0'0'isisiHiBCyiyiy Cge.ge.gououo6 +6 +6.C p : ardir ( e]^HiBC+l+l+23 F223 F22@er lt a a olD6fo Su Su EntrEntrE}
}
}t4Uto sto st= nJ=J=Jor X6li li lTem Da0;ii0;ii0stria[ : : D.Dasasa- 6- 6-otFrchRBchRBcateTchrcDb+ac chrcDb+ac cMsunowenowenlo
);
vor X yor X yo;
;
;nota ( e](colInt_to) divovovowswriwswriwTopTopT : TTT,TTT,ThNhNhName(Name(Nééék:sk:sk : g;Col(ECítionCol(ECí < D < D .D2tú St^¢D-til= $ T Top\\\\\\\\\\\} $faS te(.2te(.2t
P
P bo bo := lns..MpX : by&ame =Calcols
Fu
Fuy}I,tr(y :=y :=y then then Lef R = 0)olsos olsos oath)' '' ''r(DZZZ }
}
Li
beg 1) >r $ $ Col(ECí
C2 +ettru+Intσσσ Wªªª : : nuColor Color C g
x
xntntnEn} or1Dan or1Dan f PBD
C2'
C2'
et ot otisies es e.M.M.2)2)2X1 ;;
e;;
e;;X aD,,,,,ring;
rring;
rr:str\\\\0)isdi
I[1.rector6 o(S by by y := echar(mchar(mcV-V-V tRRPgeewgeewgEn}En}EFileRI {menuileDileDi:= 12 := 12 :6;: e v6;: e v6var ivar ivName Name Na;aa;aae( tee( tee 2length(FBlength(FBlLef┬ := (<8Btory( tory( tName(+l A A Mcol6Ccol6Cck: := (<lay.CCalcoCalcoCre D lray[';';' : in : in ;
;
;y}I;y}I;yY + }
R }
R Fun or1Danime o1)sR);
v or1Danie( twe( twe@@@chrcDb+aCchrcDb+aCcp[p[p(SizeRow();
X);
X)to to t A cond''+l (l (l6) ;=6seOseOs'\')Path)Path)P;
);
D);
D)ººº'+ sS'+ sS'20202me:Circt)iirct)ii^.m^.m^*1 Y*1 Y*neYny (S[((S[((namenamenInt_to_plastasta,0'l ,0'l ,),s y=00C00C0sar :=0Tr :=0Tr- 6By} then Der CDer CDFileMxFileMxF],],]nd;nd;nCalcRCCalcRCCrorrorr and ag*);
