标签：else 使用 end 简单实现 cti std char 没有 class
linux上没有提供用户态的内存指针读写安全检测函数，这里使用异常包来简单实现IsBadReadPtr：
{$IFDEF UNIX}
function IsBadReadPtr(lp: Pointer; ucb: UINT): BOOL; stdcall;
begin
try
while ucb>0 do
begin
if PChar(lp)[ucb-1] <> #0 then
dec(ucb)
else
dec(ucb);
end;
Result := False;
except
Result := True;
end;
end;
{$ENDIF}
IsBadWritePtr就不实现了，否则若是实现不完善会损坏原来的代码，其实普通的堆栈都是可读写的，而且我们大部分时候只是为了检测内存的大小是否足够，所以IsBadReadPtr在大部分场合可以代替IsBadWritePtr的
标签：else 使用 end 简单实现 cti std char 没有 class
原文地址：https://www.cnblogs.com/caibirdy1985/p/10132837.html
