Software > rejetto-crafted software
FileBuilder is out!
rejetto:
i made this new utility: FileBuilder
i need it sometimes
you can find it at www.rejetto.com/sw
Sk8er_Bender:
nice!
Kevin:
Hi there,
I tried to run fb, there's only a dos window poped up and vanished quickly. Then nothing happened? Is that some spyware?
Regards,
Kevin
Alexey:
Some BUGs in FileBuilder.
strToByte will be now: (what it work without modify?)
old function return negative without use trailing "K" "M" and "G".
--- Code: ---function strToByte(s:string):int64;
begin
result:=-1;
if s = '' then exit;
case upcase(s[length(s)]) of
'K': result:=1024;
'M': result:=1024*1024;
'G': result:=1024*1024*1024;
end;
if result > 1 then setlength(s, length(s)-1)
else result := 1; // INSERTED HERE !!!
result:=result*strToInt64(s);
end; // strToByte
--- End code ---
AND
where TO_ absent, system return error - TO_ = -1 => TO_ < FROM_ !!! It`s error.
(sample: copy|some file|10- halted with error "Bad sequence format" )
strToRange will be now: (what it work without modify?)
--- Code: --- function strToRange(s:string; var from_,to_:int64):boolean;
begin
result:=TRUE;
try
from_:=strToByte(chop('-',s));
if from_ < 0 then result:=FALSE;
if s = '' then to_:=-1
else to_:=strToByte(s);
if to_ <> -1 then // INSERTED HERE !!!
if to_ < from_ then result:=FALSE;
except
result:=FALSE;
end;
end; // strToRange
--- End code ---
Alexey:
Kevin, it`s console application, read help.txt in arhive.
This program runs script files. How it build (script) ? - READ HELP.TXT !!!
Navigation
[0] Message Index
[#] Next page
Go to full version