秋·風

  TGDBMIExceptionInfo = record
    ObjAddr: String;
    Name: String;
  end;

  function ischinese(s:string):string;
  var i:integer;
  begin
    result:=s;
    for i:=1 to length(s) do
    begin
      if ord(s[i])>127 then
      begin
        result:=''''+s+'''';
        break;
      end;
    end;
  end;

{ =========================================================================== }
{ Some win32 stuff }
{ =========================================================================== }
{$IFdef MSWindows}
var
  DebugBreakAddr: Pointer = nil;

  if tfClassIsPointer in TargetInfo^.TargetFlags
  then AFlags := AFlags + [gtcfClassIsPointer];
  if FullTypeInfo
  then AFlags := AFlags + [gtcfFullTypeInfo];
  Result := TGdbType.CreateForExpression(ischinese(AExpression), AFlags, wdfDefault, ARepeatCount);
  while not Result.ProcessExpression do begin
    if Result.EvalError
    then break;