It seems something is wrong in widestrings, using the following program:
{$mode objfpc}{H+}
program test_widestrings;
var
W: WideString;
begin
W := '123456';
if Length(W)<>6 then
WriteLn('Test1 Failed, it''s ', Length(W))
else
WriteLn('Test1 Passed');
SetLength(W, 6);
if Length(W)<>6 then
WriteLn('Test2 Failed, it''s ', Length(W))
else
WriteLn('Test2 Passed');
end.
It prints:
Test1 Passed
Test2 Failed, it's 12
Windows, FPC 2.1.1 revision 2214
Jesus Reyes A.
__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.yahoo.com.mx/
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
