paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-24 04:45:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: translations: fixed reading unitname:identifier to unitname.identifier of po files, bug #10938

Browse Source 
git-svn-id: trunk@14554 -
This commit is contained in:
mattias 2008-03-17 15:41:06 +00:00
parent 7593e06d86
commit 2bc0af8524
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/translations.pas
View File

@ -275,6 +275,7 @@ var
MsgID: String; MsgID: String;
MsgStr: String; MsgStr: String;
TextEnd: PChar; TextEnd: PChar;
i: Integer;
begin begin
if s='' then exit; if s='' then exit;
l:=length(s); l:=length(s);
@ -288,6 +289,11 @@ begin
if LineLen>0 then begin if LineLen>0 then begin
if CompareMem(LineStart,sCommentIdentifier,3) then begin if CompareMem(LineStart,sCommentIdentifier,3) then begin
Identifier:=copy(s,LineStart-p+4,LineLen-3); 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 end else if CompareMem(LineStart,sMsgID,7) then begin
MsgID:=UTF8CStringToUTF8String(LineStart+7,LineLen-8); MsgID:=UTF8CStringToUTF8String(LineStart+7,LineLen-8);
end else if CompareMem(LineStart,sMsgStr,8) then begin end else if CompareMem(LineStart,sMsgStr,8) then begin