create a new folder, rename it.....make crash HFS and disapear
The problem comes from the usage of two infinite buckles in a function: " until false " on the place of "until i=0"
Without wanting to offend Rejetto, here is a link towards the same version with the corrected bug as indicated
http://hfs.webhop.org/hfs182b.exefunction anyMacroMarkerIn(s:string):boolean;
var
i, l: integer;
begin
result:=TRUE;
if pos('|', s) > 0 then exit;
l:=length(s);
i:=0;
// search for {. and .}
repeat
i:=posEx('.', s, i+1);
if (i > 0) and ((s[i-1] = '{') or (i < l) and (s[i+1] = '}')) then exit;
until false i=0;
// search for {: and :}
repeat
i:=posEx(':', s, i+1);
if (i > 0) and ((s[i-1] = '{') or (i < l) and (s[i+1] = '}')) then exit;
until false i=0;
result:=FALSE;
end; // anyMacroMarkerIn