From d326a205ccce93520da77fbae93f879cd4d3e9f9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 15 Jun 2012 16:39:31 +0000
Subject: [PATCH] lazutils: small optimization

git-svn-id: trunk@37655 -
---
 components/lazutils/lazutf8classes.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/components/lazutils/lazutf8classes.pas b/components/lazutils/lazutf8classes.pas
index 02bae9c3fb..3f3fe46dca 100644
--- a/components/lazutils/lazutf8classes.pas
+++ b/components/lazutils/lazutf8classes.pas
@@ -35,6 +35,11 @@ procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string);
 var
   uList: TStringListUTF8;
 begin
+  if List is TStringListUTF8 then
+  begin
+    List.LoadFromFile(FileName);
+    exit;
+  end;
   uList:=TStringListUTF8.Create;
   try
     uList.LoadFromFile(FileName);
@@ -48,6 +53,11 @@ procedure SaveStringsToFileUTF8(List: TStrings; const FileName: string);
 var
   uList: TStringListUTF8;
 begin
+  if List is TStringListUTF8 then
+  begin
+    List.SaveToFile(FileName);
+    exit;
+  end;
   uList:=TStringListUTF8.Create;
   try
     uList.Assign(List);