From faa58c53b1c8ef838d6dd26029c09754020abd75 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 18 Oct 2017 12:00:30 +0000
Subject: [PATCH] lcl: lcltranslator: use typeinfo instead of type name

git-svn-id: trunk@56124 -
---
 lcl/lcltranslator.pas | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lcl/lcltranslator.pas b/lcl/lcltranslator.pas
index 649503d2ae..1e77072806 100644
--- a/lcl/lcltranslator.pas
+++ b/lcl/lcltranslator.pas
@@ -284,8 +284,7 @@ var
   Reader: TReader;
 begin
   Result := '';
-  if (PropInfo = nil) or
-     (SysUtils.CompareText(PropInfo^.PropType^.Name, 'TTRANSLATESTRING') <> 0) then
+  if (PropInfo=nil) or (PropInfo^.PropType<>TypeInfo(TTranslateString)) then
     exit;
 
   // do not translate at design time