paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed range check in updating po file from Vincent

Browse Source 
git-svn-id: trunk@16183 -
This commit is contained in:
mattias 2008-08-22 13:23:36 +00:00
parent 106a0ad6cf
commit 4c807adbc8
1 changed files with 13 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/translations.pas
View File

@ -261,11 +261,13 @@ begin
BasePOFile.UpdateStrings(InputLines, stRst);
except
E := EPOFileError.Create('');
on Ex: Exception do begin
E := EPOFileError.Create(Ex.Message);
E.ResFileName:=FileName;
E.POFileName:=POFileName;
raise E;
end;
end;
end;
BasePOFile.SaveToFile(POFilename);
@ -282,11 +284,13 @@ begin
try
POFile.SaveToFile(InputLines[i]);
except
E := EPOFileError.Create('');
on Ex: Exception do begin
E := EPOFileError.Create(Ex.Message);
E.ResFileName:=InputLines[i];
E.POFileName:=POFileName;
raise E;
end;
end;
finally
POFile.Free;
end;
@ -732,7 +736,7 @@ begin
while (p<=n)and(Line[p] in ['0'..'9']) do
inc(p);
UStr := UStr + Chr(StrToInt(copy(Line, j, p-j)));
until (Line[p]<>'#') or (p>=n);
until (p>n) or (Line[p]<>'#');
// transfer valid UTF-8 segments to result string
// and re-encode back the rest
while Ustr<>'' do begin