paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 21:39:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, updatepofile, fix to process some multilined rst strings previously discarded

Browse Source 
git-svn-id: trunk@17605 -
This commit is contained in:
jesus 2008-11-26 19:59:27 +00:00
parent 7b8ef5e908
commit d92574550c
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/translations.pas
View File

@ -722,11 +722,18 @@ begin
UntagAll; UntagAll;
// for each string in lrt/rst list check if it's already // for each string in lrt/rst list check if it's already
// in PO if not add it // in PO if not add it
Value := '';
Multi := false;
for i:=0 to InputLines.Count-1 do begin for i:=0 to InputLines.Count-1 do begin
Line:=InputLines[i]; Line:=InputLines[i];
n := Length(Line); n := Length(Line);
if n=0 then if n=0 then begin
if Multi and (Value<>'') then begin
// process pending multiline values (bug in fpc?)
UpdateItem(Identifier, Value);
end;
continue; continue;
end;
if SType=stLrt then begin if SType=stLrt then begin
p:=Pos('=',Line); p:=Pos('=',Line);