How to fix Delphi XE3 migration errors?

delphi, delphi-5, delphi-xe3

Solution

Your `OemToAnsi` function should look like this:

function OemToAnsi(const Str: AnsiString): AnsiString;
begin
  SetLength(Result, Length(Str));
  OemToCharA(PAnsiChar(Str), PAnsiChar(Result));
end;

But perhaps you'd be better with

function OemToWide(const Str: AnsiString): string;
begin
  SetLength(Result, Length(Str));
  OemToChar(PAnsiChar(Str), PChar(Result));
end;

As for your `StrToRichText`, that looks more difficult. It clearly only accepts ANSI input. If you want to stick with ANSI then just change the declaration to

function StrToRichText(const Str: AnsiString): AnsiString;

RTF is encoded with 7 bit ASCII. To make that function work with Unicode input you'd need to escape any characters with ordinal >= 128. The escaping is described, for example, on the Wikipedia Rich Text Format page. I'll leave that as an exercise for you!

Before you go much further you need to read Marco Cantù's white paper: Delphi and Unicode.

Problem

I am migrating my Delphi 5 application to Delphi XE3. I am getting some erros while compiling it. Can someone please help me to resolve these. Thanks for help in advance. I am not able to find defination of function `OemToChar` in XE3. When I Ctrl+Click on that function it shows message `Unable to locate 'WinAPI.Windows.pas'`. I am not able to open any delphi component file. What is the location of windows.pas located on the system ? or How to resolve it ? `Incompatiable Types: 'PAnsiChar' and 'PWideChar'` in below function on line with `OemToChar(p1, p2)`. ``` function OemToAnsi(const Str: string): string; var p1, p2: PChar; begin p1 := PChar(Str); p2 := StrNew(p1); OemToChar(p1, p2); Result := StrPas(p2); StrDispose(p2); end; ``` - Getting error `'Low Bound Exceeds High Bound'` in following code. ``` function StrToRichText(const Str: string): string; var i: integer; begin Result := ''; for i := 1 to Length(Str) do begin case Str[i] of #128 .. #255 : Result := Result + '\''' + LowerCase(IntToHex(Ord(Str[i]), 2)); '\','{','}': Result := Result + '\' + Str[i]; else Result := Result + Str[i]; end; end; end; ```

Original source