2Rokuell,
мощьно!
Но на строчке CT.SaveAsTree(dir+'ClassesTree.txt'); происходит ошибка. Конкретно в этой процедуре она происходит на строчке Rewrite(FTF);. Сама ошибка называется exception class EInOutError with message "Invalid filename". CT.SaveAsSortList(dir+'ClassesList.txt'); тоже не работатет!
|