[fpc-pascal] Problem with string conversion

[Felipe Monteiro de Carvalho]

Hello,

I am having a problem with string conversion from utf-8 to utf-16:

procedure TForm1.Button6Click(Sender: TObject);
var
 WideText: PWideChar;
 AText: string;
 Size: Integer;
begin
 AText := 'Meu longo texto iso-8859-1';
 Size := Utf8ToUnicode(nil, PChar(AText), 0);
 WideText := GetMem(Size);
 Utf8ToUnicode(WideText, PChar(AText), Size);
 FreeMem(WideText);
end;

When I execute this procedure above, I will get an error on the end of
the program:

External: Sigsegv

System_remove_from_list_fixed

any ideas?

thanks,
--
Felipe Monteiro de Carvalho
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal