paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 15:39:30 +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

22
lcl/translations.pas
View File

@ -261,10 +261,12 @@ begin
BasePOFile.UpdateStrings(InputLines, stRst);
except
E := EPOFileError.Create('');
E.ResFileName:=FileName;
E.POFileName:=POFileName;
raise E;
on Ex: Exception do begin
E := EPOFileError.Create(Ex.Message);
E.ResFileName:=FileName;
E.POFileName:=POFileName;
raise E;
end;
end;
end;
@ -282,10 +284,12 @@ begin
try
POFile.SaveToFile(InputLines[i]);
except
E := EPOFileError.Create('');
E.ResFileName:=InputLines[i];
E.POFileName:=POFileName;
raise E;
on Ex: Exception do begin
E := EPOFileError.Create(Ex.Message);
E.ResFileName:=InputLines[i];
E.POFileName:=POFileName;
raise E;
end;
end;
finally
POFile.Free;
@ -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