Procházet zdrojové kódy

* Modified the test to run properly on non-UTF8 systems.

Yuriy Sydorov před 4 roky
rodič
revize
64812bdc60
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      tests/webtbs/tw29353.pp

+ 1 - 1
tests/webtbs/tw29353.pp

@@ -11,7 +11,7 @@ uses
   { you can add units after this };
 
 Var
-  AString : String;
+  AString : utf8string;
 begin
   AString := 'öö';
   Case AString of