/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
Utils/DefaultLanguageResMaker/LanguageResMaker.pas
21 строка
978 B
Ivan Bondarev
#2810
19 мар 2023, 14:04
19 мар 2023, 14:04
8119c7b
Код
Авторство
О чём код?
// Copyright (c) Ivan Bondarev, Stanislav Mikhalkovich (for details please see \doc\copyright.txt) // This code is distributed under the GNU LGPL (for details please see \doc\license.txt) uses FilesOperations, System.IO, System.Resources; begin var Files := DirectoryInfo.Create(Path.Combine('..', '..', 'bin', 'Lng', 'Rus')).GetFiles('*.*'); Writeln('Найдено ' + Files.Length.tostring + ' файлов, обработка...'); var res := ''; for var i := 0 to Files.Length - 1 do res := res + #13#10#13#10'//' + Files[i].Name + #13#10'%PREFIX%='#13#10 + ReadFileToEnd(Files[i].FullName); Writeln('Сохранение собраного файла в ресурс...'); var ResWriter := ResourceWriter.Create(Path.Combine('..', '..', 'Localization', 'DefaultLang.resources')); ResWriter.AddResource('DefaultLanguage', System.Text.Encoding.GetEncoding(1251).GetBytes(res)); ResWriter.Generate; ResWriter.Close; Writeln('OK'); end.