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

LCL: added debugging

Browse Source 
git-svn-id: trunk@14356 -
This commit is contained in:
mattias 2008-03-01 19:12:36 +00:00
parent 50840fd57a
commit 3990bed138
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/translations.pas
View File

@ -313,7 +313,9 @@ begin
Item:=TPOFileItem.Create(Identifier,OriginalValue,TranslatedValue); Item:=TPOFileItem.Create(Identifier,OriginalValue,TranslatedValue);
FItems.Add(Item); FItems.Add(Item);
FIdentifierToItem.Add(Identifier,Item); FIdentifierToItem.Add(Identifier,Item);
//if FIdentifierToItem.Data[UpperCase(Identifier)]=nil then raise Exception.Create('');
FOriginalToItem.Add(OriginalValue,Item); FOriginalToItem.Add(OriginalValue,Item);
//if FOriginalToItem.Data[OriginalValue]=nil then raise Exception.Create('');
end; end;
function TPOFile.Translate(const Identifier, OriginalValue: String): String; function TPOFile.Translate(const Identifier, OriginalValue: String): String;