Unicode in RAD Studio

http://docwiki.embarcadero.com/RADStudio/XE7/en/Unicode_in_RAD_Studio

==================
Pchar-->PansiChar

String->AnsiString

======================

var
  AnsiStr: AnsiString;
  Str: string;
....
AnsiStr := Str;
AnsiStr := AnsiString(Str);

=====================

http://edn.embarcadero.com/article/38980

Delphi 7

function AnsiToDOS(S: String): String;
begin
  SetLength(Result, Length(S));
  if S <> '' then begin
     CharToOEM(PChar(S), PChar(Result));
  end;
end;

Delphi XE
function StringToOem(const S: String): AnsiString;
begin
  SetLength(Result, Length(S));
  if S <> '' then begin
    CharToOem(PChar(S), PAnsiChar(Result));
  end;
end;


function AnsiStringToOem(const S: AnsiString): AnsiString;
begin
  Result := S;
  UniqueString(Result);
  if S <> '' then begin
    CharToOemA(PAnsiChar(Result), PAnsiChar(Result));
  end;
end;