Update of /cvsroot/utf8vcl/utf8vcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv32314
Modified Files:
TestForm.pas
Log Message:
Extend teststring to contain much more diverse charactersets.
Index: TestForm.pas
===================================================================
RCS file: /cvsroot/utf8vcl/utf8vcl/TestForm.pas,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** TestForm.pas 18 Mar 2007 21:47:34 -0000 1.22
--- TestForm.pas 19 Mar 2007 20:23:53 -0000 1.23
***************
*** 66,71 ****
const
! TestText1 = 'I'#$C3#$B1#$74#$C3#$AB#$72#$6E#$C3#$A2;
! TestText2 = 't'#$D1#$96#$C3#$B4#$6E#$C3#$A0#$6C#$D1#$96#$7A#$C3#$A6#$74#$D1#$96#$C3#$B8#$6E;
TestText = TestText1 + TestText2;
--- 66,71 ----
const
! TestText1 = 'I'#$C3#$B1#$DB#$B3#$C3#$AB#$72#$D7#$90#$C3#$A2;
! TestText2 = 't'#$D1#$96#$C3#$B4#$EF#$A7#$A7#$C3#$A0#$6C#$D1#$96#$7A#$C3#$A6#$74#$E2#$98#$BA#$6E;
TestText = TestText1 + TestText2;
***************
*** 178,181 ****
--- 178,185 ----
S := TestText;
Wide := S;
+ S := Wide;
+ Assert( S = TestText);
+
+ FatalAppExitW(0, PWideChar(Wide));
ShowMessage(Wide);
|
