1. 我在 XE3 中找不到函数
OemToChar
的定义。当我 Ctrl+Click 该函数时,会显示消息 Unable to locate 'WinAPI.Windows.pas'
。我无法打开任何 Delphi 组件文件。系统上的 windows.pas 文件位于哪里?或者如何解决此问题?2. 以下函数中,第
p1, p2
行出现 Incompatible 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;