Changeset 233 for CoolTranslator/UCoolTranslator.pas

Timestamp:

Apr 14, 2011, 12:51:20 PM (14 years ago)

Author:

george

Message:

• Modified: Unit UStreamHelper no longer define TThreadStreamHelper.

File:

• CoolTranslator/UCoolTranslator.pas (modified) (2 diffs)

CoolTranslator/UCoolTranslator.pas

@@ -217 +217 @@
               with TCollection(Obj).Items[I] do
                 TranslateComponent(TCollection(Obj).Items[I]);
-          if Obj is TStrings then
+          (*if Obj is TStrings then
             for I := 0 to TStrings(Obj).Count - 1 do
               with TStrings(Obj) do
                 Strings[I] := TranslateText(Strings[I], Strings[I]);
+          *)
         end;
       end;
@@ -327 +328 @@
 destructor TCoolTranslator.Destroy;
 begin
+  FPOFile.Free;
   Languages.Free;
+  ComponentExcludes.Free;
   inherited Destroy;
 end;