mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-23 03:45:55 +02:00
LCL: translations: fixed reading unitname:identifier to unitname.identifier of po files, bug #10938
git-svn-id: trunk@14554 -
This commit is contained in:
parent
7593e06d86
commit
2bc0af8524
@ -275,6 +275,7 @@ var
|
||||
MsgID: String;
|
||||
MsgStr: String;
|
||||
TextEnd: PChar;
|
||||
i: Integer;
|
||||
begin
|
||||
if s='' then exit;
|
||||
l:=length(s);
|
||||
@ -288,6 +289,11 @@ begin
|
||||
if LineLen>0 then begin
|
||||
if CompareMem(LineStart,sCommentIdentifier,3) then begin
|
||||
Identifier:=copy(s,LineStart-p+4,LineLen-3);
|
||||
// the RTL creates identifier paths with point instead of colons
|
||||
// fix it:
|
||||
for i:=1 to length(Identifier) do
|
||||
if Identifier[i]=':' then
|
||||
Identifier[i]:='.';
|
||||
end else if CompareMem(LineStart,sMsgID,7) then begin
|
||||
MsgID:=UTF8CStringToUTF8String(LineStart+7,LineLen-8);
|
||||
end else if CompareMem(LineStart,sMsgStr,8) then begin
|
||||
|
Loading…
Reference in New Issue
Block a user