2015-06-12 21:59:28 +03:00
|
|
|
|
// Copyright (c) Ivan Bondarev, Stanislav Mihalkovich (for details please see \doc\copyright.txt)
|
|
|
|
|
|
// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
|
2015-05-14 22:35:07 +03:00
|
|
|
|
uses FilesOperations,
|
|
|
|
|
|
System.IO,
|
|
|
|
|
|
System.Resources;
|
|
|
|
|
|
|
|
|
|
|
|
var Files:array of FileInfo;
|
|
|
|
|
|
i:integer;
|
|
|
|
|
|
res:string;
|
|
|
|
|
|
ResWriter:ResourceWriter;
|
|
|
|
|
|
|
|
|
|
|
|
begin
|
|
|
|
|
|
Files:=DirectoryInfo.Create('..\..\bin\lng\rus').GetFiles('*.*');
|
2015-12-28 14:25:15 +03:00
|
|
|
|
Writeln('Найдено '+Files.Length.tostring+' файлов, обработка...');
|
2015-05-14 22:35:07 +03:00
|
|
|
|
res:='';
|
|
|
|
|
|
for 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);
|
2015-12-28 14:25:15 +03:00
|
|
|
|
Writeln('Сохранение собраного файла в ресурс...');
|
2015-05-14 22:35:07 +03:00
|
|
|
|
ResWriter:=ResourceWriter.Create('..\..\Localization\DefaultLang.resources');
|
|
|
|
|
|
ResWriter.AddResource('DefaultLanguage', System.Text.Encoding.GetEncoding(1251).GetBytes(res));
|
|
|
|
|
|
ResWriter.Generate;
|
|
|
|
|
|
ResWriter.Close;
|
|
|
|
|
|
Writeln('OK');
|
|
|
|
|
|
end.
|
