git-svn-id: trunk@15018 -
@@ -168,7 +168,19 @@ begin
// Write msg entry
WriteLn(f, '#: ', item.ModuleName, ':', item.ConstName);
- WriteLn(f, 'msgid "', s, '"');
+ j := Pos('\n', s);
+ if j > 0 then begin
+ WriteLn(f, 'msgid ""');
+ while j > 0 do begin
+ Writeln(f, '"',copy(s, 1, j+1),'"');
+ Delete(s, 1, j+1);
+ end;
+ if s <> '' then
+ Writeln(f, '"',s,'"');
+ end
+ else
+ WriteLn(f, 'msgid "', s, '"');
WriteLn(f, 'msgstr ""');
WriteLn(f);
end;