try
    INI := TINIFile.Create('test.ini');
  except on e: exception do
    ShowMessage(e.Message);
  end;

TINIFile

  try
    INI := TINIFile.Create('test.ini');
  except on e: exception do
    ShowMessage(e.Message);
  end;

  procedure T;
  begin
    INI := TINIFile.Create('test.ini');
  end;
   
  try
    T;
  except on e: exception do
    ShowMessage(e.Message);
  end;

procedure TForm1.btnOkClick(Sender: TObject);
begin
  try
    LoadINI;
  except on e: exception do
    ShowMessage(e.Message);
  end;
end;

procedure TForm1.LoadINI;
var
  INI: TINIFile;
begin
    INI := TINIFile.Create('test.ini');
end;

uses FMX.Helpers.Android;

procedure TTestForm.ShowInformationMessage(const AText: string);
  CallInUiThread (
        procedure
        begin
          TJToast.JavaClass.makeText (TAndroidHelper.Context,
              StrToJCharSequence(AText), TJToast.JavaClass.LENGTH_LONG).show;
        end
  );
end;

uses
  System.SysUtils;

begin
  try
    Raise Exception.Create('Test Exception');
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

Project1.dpr.11: Raise Exception.Create('Test Exception');
0041E5A4 B940E64100       mov ecx,$0041e640
0041E5A9 B201             mov dl,$01
0041E5AB A130344100       mov eax,[$00413430]
0041E5B0 E847AAFFFF       call Exception.Create
0041E5B5 E84A85FEFF       call @RaiseExcept

procedure _RaiseAtExcept(Obj: TObject; Address: Pointer);
var
  Params: Array[0..6] of NativeUInt;
  ExceptionRecord: TExceptionRecord;
  //CurRaiseFrame: PRaiseFrame;
begin
  if Obj = nil then
    _RunError(216); // reAccessViolation

  Params[0] := UIntPtr(Address);
  Params[1] := UIntPtr(Pointer(Obj));
  Params[2] := 0 {EBX};
  Params[3] := 0 {ESI};
  Params[4] := 0 {EDI};
  Params[5] := 0 {EBP};
  Params[6] := 0 {ESP};

  if RaiseExceptObjProc <> nil then
  begin
    //CurRaiseFrame := RaiseListPtr;
    ExceptionRecord.ExceptionCode := cDelphiException;
    ExceptionRecord.ExceptionFlags := cNonContinuable;
    ExceptionRecord.ExceptionRecord := nil;
//  if CurRaiseFrame <> nil then
//    ExceptionRecord.ExceptionRecord := CurRaiseFrame^.ExceptionRecord;
    ExceptionRecord.ExceptionAddress := Address;
    ExceptionRecord.NumberParameters := 7;
    ExceptionRecord.ExceptionInformation[0] := Params[0];
    ExceptionRecord.ExceptionInformation[1] := Params[1];
    ExceptionRecord.ExceptionInformation[2] := Params[2];
    ExceptionRecord.ExceptionInformation[3] := Params[3];
    ExceptionRecord.ExceptionInformation[4] := Params[4];
    ExceptionRecord.ExceptionInformation[5] := Params[5];
    ExceptionRecord.ExceptionInformation[6] := Params[6];
    TRaiseExceptObjProc(RaiseExceptObjProc)(@ExceptionRecord);
  end;
  RaiseExceptionProc(cDelphiException, cNonContinuable, 7, @Params);
end;

Posted via ActualForum NNTP Server 1.5