[fpc-pascal]Unicode

[Rimgaudas Laucius]

> Hello there!!!
> 
> Are there any functions to convert an ansi string to an unicode one.
> 
MultiByteToWideChar

Here is function from Delphi for directly conversion. But it needs some changes for work with Free Pascal.

function StringToWideChar(const Source: string; Dest: PWideChar;
  DestSize: Integer): PWideChar;
begin
  Dest[MultiByteToWideChar(0, 0, PChar(Source), Length(Source),
    Dest, DestSize - 1)] := #0;
  Result := Dest;
end;