/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
ReleaseGenerators/makeunit.pas
18 строк
732 B
Бондарев Иван
initial commit
14 май 2015, 22:35
14 май 2015, 22:35
e6e67c1
Код
Авторство
О чём код?
uses System.IO; begin var files := Directory.GetFiles('..\TestSuite\units'); foreach fname: string in files do begin if not fname.StartsWith('u_') and not fname.StartsWith('use_') then begin var progtext := &File.ReadAllText(fname); var unit_header := 'unit u_' + Path.GetFileNameWithoutExtension(fname) + ';' + System.Environment.NewLine; progtext := unit_header + progtext; &File.WriteAllText(fname, progtext); &File.Move(fname,Path.Combine(Path.GetDirectoryName(fname),'u_'+Path.GetFileName(fname))); &File.WriteAllText('..\TestSuite\usesunits\use_'+Path.GetFileName(fname),string.Format('uses u_{0}; begin end.',Path.GetFileNameWithoutExtension(fname))); end; end; end.