From 3990bed1386b1720078797c8dea257455ff04929 Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 1 Mar 2008 19:12:36 +0000 Subject: [PATCH] LCL: added debugging git-svn-id: trunk@14356 - --- lcl/translations.pas | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lcl/translations.pas b/lcl/translations.pas index 9f5c062d9a..7756610301 100644 --- a/lcl/translations.pas +++ b/lcl/translations.pas @@ -313,7 +313,9 @@ begin Item:=TPOFileItem.Create(Identifier,OriginalValue,TranslatedValue); FItems.Add(Item); FIdentifierToItem.Add(Identifier,Item); + //if FIdentifierToItem.Data[UpperCase(Identifier)]=nil then raise Exception.Create(''); FOriginalToItem.Add(OriginalValue,Item); + //if FOriginalToItem.Data[OriginalValue]=nil then raise Exception.Create(''); end; function TPOFile.Translate(const Identifier, OriginalValue: String): String;