23 lines
744 B
ObjectPascal
23 lines
744 B
ObjectPascal
|
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('*.*');
|
|||
|
|
Writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> '+Files.Length.tostring+' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>...');
|
|||
|
|
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);
|
|||
|
|
Writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>...');
|
|||
|
|
ResWriter:=ResourceWriter.Create('..\..\Localization\DefaultLang.resources');
|
|||
|
|
ResWriter.AddResource('DefaultLanguage', System.Text.Encoding.GetEncoding(1251).GetBytes(res));
|
|||
|
|
ResWriter.Generate;
|
|||
|
|
ResWriter.Close;
|
|||
|
|
Writeln('OK');
|
|||
|
|
end.
|