Software > rejetto-crafted software

FileBuilder is out!

(1/4) > >>

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