1 2 3 4 5 6 7 8 9 10 | IF counit.TEST_ORDERED('Test_InsertAt') THEN _fbWSTRINGBuilder.Append(wsText1); //_fbWSTRINGBuilder.InsertAt( InsertText, 91 ); WS := _fbWSTRINGBuilder.ToWString(); //ExpectedPos := WFIND( WS, InsertText); AssertEquals_DINT( Expected := ExpectedPos, Actual := InsertPos, wsText1 : WSTRING := "UTF-8 encoded sample text file he ASCII compatible UTF-8 encoding OF ISO 10646 AND Unicode"; |