git-svn-id: trunk@19143 -
@@ -6,7 +6,11 @@ program tstrutils1;
{$h+}
uses
- {SysUtils, }cwstring,StrUtils;
+ {SysUtils, }
+{$ifdef unix}
+ cwstring,
+{$endif unix}
+ StrUtils;
var
ResultCounter: Integer = 0;
@@ -1,13 +1,17 @@
program tstrutils2;
-// tests MBCS compatibility of strutils ansistartstext and -endstext.
+// tests MBCS compatibility of strutils ansistartstext and -endstext.
// (case-insensitive)
{$mode objfpc}
- StrUtils,cwstring;
+ StrUtils,
+ cwstring
+ ;