Delphi 5 アプリケーションを Delphi XE3 に移行しています。コンパイル中にエラーが発生します。誰かがこれらを解決するのを手伝ってくれませんか。事前に助けてくれてありがとう。
XE3で関数の定義を見つけることができません
OemToChar
。その機能を Ctrl+Click すると、メッセージが表示されますUnable to locate 'WinAPI.Windows.pas'
。Delphi コンポーネント ファイルを開くことができません。システム上の windows.pas の場所は? またはそれを解決する方法?Incompatiable Types: 'PAnsiChar' and 'PWideChar'
以下の関数で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;
'Low Bound Exceeds High Bound'
次のコードでエラーが発生します。
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;