C0USIN Цитата: Это детали, а основная мысль в том, чтобы добавлять префикс к всем файлам. Без всяких ЕСЛИ. Функция URL2File должна работать независимо от содержимого папки кэша.
Она так и будет работать. Пример:
URL2File(URL:string, URLtype:byte):string
{
Преобразуем символы;
if URLtype=Redirect
then Result:=Result+'#m';
if Result[Length(Result)]='\'
then Result :=Result+'#_';
}
--------------------
Функция записи (условно, без создания папок)
{
filename:=URL2File(URL);
if (createfile(filename)<>OK) and (direxist(filename)=OK)
then
{
filename:=filename+'#_'
if (createfile(filename)<>OK) then exit;
}
WriteFile(filename);
}
----------------
Функция чтения (условно)
filename:=URL2File(URL);
if (openfile(filename)<>OK)
then
{
filename:=filename+'#_'
if (openfile(filename)<>OK) then exit;
}
ReadFile(filename);
}
Т.е. сама функция URL2File в кеше не лазит