* some changes to support libTextSuite

10年前 · 893e9166cd
--- a/utsTextSuite.pas
+++ b/utsTextSuite.pas
@@ -405,7 +405,7 @@ type
  private
    fCodePage: TtsCodePage;
    fCodePageDefault: WideChar;

  protected
    fRenderers: TObjectList;
    fGenerators: TObjectList;
  private
--- a/utsTypes.pas
+++ b/utsTypes.pas
@@ -10,6 +10,7 @@ uses
  Classes, SysUtils;

 type
  {$Z4}
  TtsCodePage = (
    tsUTF8,
    tsISO_8859_1,