Argument out of range delphi ошибка

Can someone can explain me why i receive sometime an Exception «Argument out of range» under the ios simulator when i execute the code below? on android i never get any error. I use Delphi berlin.

the functions where the error appear :

{**********************************************************************}
procedure Twin_WorkerThreadPool.Enqueue(const Value: Twin_WorkerThread);
begin
  Tmonitor.Enter(fPool);
  try
    fPool.Add(Value);
    fSignal.SetEvent;
  finally
    Tmonitor.Exit(fPool);
  end;
end;

{********************************************************}
function Twin_WorkerThreadPool.Dequeue: Twin_WorkerThread;
begin
  Tmonitor.Enter(self); // << only one thread can execute the code below
  try

    Tmonitor.Enter(fPool);
    try
      if Fpool.Count > 0 then begin
        result := fPool[Fpool.Count - 1];
        fPool.Delete(Fpool.Count - 1);
        exit;
      end;
      fSignal.ResetEvent;
    finally
      Tmonitor.Exit(fPool);
    end;

    fSignal.WaitFor(Infinite);

    Tmonitor.Enter(fPool);
    try
      result := fPool[Fpool.Count - 1]; // << exception argument out of range ? but how it's possible ?
      fPool.Delete(Fpool.Count - 1);
    finally
      Tmonitor.Exit(fPool);
    end;

  finally
    Tmonitor.exit(self);
  end;
end;

Below the full source code :

  {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  Twin_WorkerThreadPool = class(TObject)
  private
    fPool: TObjectList<Twin_WorkerThread>;
    fSignal: Tevent;
  public
    procedure Enqueue(const Value: Twin_WorkerThread);
    function Dequeue: Twin_WorkerThread;
  end;

{***********************************}
constructor Twin_WorkerThread.Create;
begin
  FProc := nil;
  FProcReadySignal := TEvent.Create(nil, false{ManualReset}, false, '');
  FProcFinishedSignal := TEvent.Create(nil, false{ManualReset}, false, '');
  inherited Create(False); // see http://www.gerixsoft.com/blog/delphi/fixing-symbol-resume-deprecated-warning-delphi-2010
end;

{***********************************}
destructor Twin_WorkerThread.Destroy;
begin
  Terminate;
  FProcReadySignal.setevent;
  WaitFor;
  FProcReadySignal.Free;
  FProcFinishedSignal.Free;
  inherited;
end;

{**********************************}
procedure Twin_WorkerThread.Execute;
begin
  while True do begin
    try

      //wait the signal
      FProcReadySignal.WaitFor(INFINITE);

      //if terminated then exit
      if Terminated then Break;

      //execute fProc
      if assigned(FProc) then FProc();

      //signal the proc is finished
      FProcFinishedSignal.SetEvent;

    except
      //hide the exception
    end;
  end;
end;

{**********************************************************}
procedure Twin_WorkerThread.ExecuteProc(const AProc: TProc);
begin
  fProc := AProc;
  FProcFinishedSignal.ResetEvent;
  FProcReadySignal.SetEvent;
end;

{*****************************************************************}
procedure Twin_WorkerThread.ExecuteAndWaitProc(const AProc: TProc);
begin
  fProc := AProc;
  FProcFinishedSignal.ResetEvent;
  FProcReadySignal.SetEvent;
  FProcFinishedSignal.WaitFor(INFINITE);
end;

{********************************************************************}
constructor Twin_WorkerThreadPool.Create(const aThreadCount: integer);
var i: integer;
begin
  fPool := TObjectList<Twin_WorkerThread>.create(false{aOwnObjects});
  fSignal := TEvent.Create(nil, false{ManualReset}, false, '');
  for I := 0 to aThreadCount - 1 do
    fPool.Add(Twin_WorkerThread.Create)
end;

{***************************************}
destructor Twin_WorkerThreadPool.Destroy;
var i: integer;
begin
  for I := 0 to fPool.Count - 1 do begin
    fPool[i].disposeOf;
    fPool[i] := nil;
  end;
  fPool.Free;
  fSignal.Free;
  inherited Destroy;
end;

{*********************************************************************}
procedure Twin_WorkerThreadPool.ExecuteAndWaitProc(const AProc: TProc);
var aThread: Twin_WorkerThread;
begin
  aThread := Dequeue;
  try
    aThread.ExecuteAndWaitProc(aProc);
  finally
    Enqueue(aThread);
  end;
end;

NOTE:

Just to explain a little better, remember it’s only on ios it’s not work, and if i add a sleep(1000) after the fSignal.resetEvent then it’s work :

    Tmonitor.Enter(fPool);
    try
      if Fpool.Count > 0 then begin
        result := fPool[Fpool.Count - 1];
        fPool.Delete(Fpool.Count - 1);
        exit;
      end;
      fSignal.ResetEvent;

      sleep(1000);   

    finally
      Tmonitor.Exit(fPool);
    end;

    fSignal.WaitFor(Infinite);

so it’s look like that the signal is not set to OFF just after doing fSignal.ResetEvent;

i m affraid it’s a bug in TEvent or Tmonitor

Добрый день!

Установил XE8, открыл проект собранный на XE7

начались проблемы со стилями (если использовать один стиль на всех формах), это пол беды. пришлось стиль новый для каждой формы ставить…

а ошибка что в названии появилась откуда не ждал, есть TListView, заполняется динамически

1-зачение добавляем

 ListView1.ClearItems;
  with ListView1.Items.Add do
  begin
    Text := 'KCell';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'kcell.png'));
    Tag := 3;
  end;
  with ListView1.Items.Add do
  begin
    Text := 'Activ';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'activ.png'));
    Tag := 391;
  end;
  with ListView1.Items.Add do
  begin
    Text := 'Tele2';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'tele2.png'));
    Tag := 125;
  end;
  with ListView1.Items.Add do
  begin
    Text := 'Pathword';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'pathword.png'));
    Tag := 73;
  end;
  with ListView1.Items.Add do
  begin
    Text := 'Beeline';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'beeline.png'));
    Tag := 90;
  end;
  with ListView1.Items.Add do
  begin
    Text := 'ДОС';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath,
      'beeline-dos.png'));
    Tag := 578;
  end;
  with ListView1.Items.Add do
  begin
    Text := 'Dalacom';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'dalacom.png'));
    Tag := 12;
  end;
  with ListView1.Items.Add do
  begin
    Text := 'City';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'city.png'));
    Tag := 134;
  end;
  with ListView1.Items.Add do
  begin
    Text := 'ALTEL 4G';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'altel4g.png'));
    Tag := 716;
  end;
  with ListView1.Items.Add do
  begin
    Text := 'АО "Казахтелеком"';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'telecom.png'));
    Tag := 0;
  end;

2-значение

ListView1.ClearItems;
  with ListView1.Items.Add do
  begin
    Text := 'ALTEL 4G';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'altel4g.png'));
    Tag := 716;
  end;
  with ListView1.Items.Add do
  begin
    Text := 'JET';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath, 'jet.png'));
    Tag := 484;
  end;
  with ListView1.Items.Add do
  begin
    Text := '"Интернет Дома" от Beeline';
    Bitmap.LoadFromFile(TPath.Combine(TPath.GetDocumentsPath,
      'internetdoma.png'));
    Tag := 413;
  end;

моделируем ситуацию

если грузим 1 значение и тыкаем (выделяем) на последний или больший 2 itemindex

затем выполняем 2 значение, то выскакивает

argument out of range

т.е. получается ItemIndex или Selected Item не сбрасывается.

как эту ошибку исправить?

Totally different, these two have nothing to do with each other except that
they both involved a TList<T>

Also don’t think this has anything to do with NexusDB specifically.

Looking at the code of TDataSet.DataEvent the most likely reason I can see for
this to occur is this loop:

if NotifyDataSources then
begin
for I := 0 to FDataSources.Count — 1 do
FDataSources[i].DataEvent(Event, Info);
if FDesigner <> nil then FDesigner.DataEvent(Event, Info);
end;

During the execution of DataSources[i].DataEvent a number of events at the
TDataSource level could be called and the call is further cascading via
datalinks to all connected db-aware controls, where there are also many
opportunities for code to be executed.

If anywhere in that code at least two TDataSources that are currently connected
to that dataset are being freed or even just disconnected from the dataset,
it’s possible for the next iteration of the loop to attempt to acccess
FDataSources beyond it’s upper end (as the loop iterates all items based on the
initial count of the list, and is not designed to handle cases where the list
changes during iteration, while at the same time each iteration of the loop can
potentially call out to arbitrary user code, which might result in changes to
the list).

Will Owyong wrote:

> On 13/06/2017 8:12 PM, Roberto Nicchi wrote:
> > I’m receiving (by Eurekalog) the exception below.
> > Any idea what coud be the cause ?
> > NexusDb 4.12.01, Delphi XE10.1 update 2
> >
> > thanks
> >
> >
> > Argument out of range.
> >
> >
> > [00475591] System.Generics.Collections.TListHelper.CheckItemR ange
> > [007DB9C4] Data.DB.TDataSet.DataEvent
> > [00B16044] nxdb.TnxDataset.DataEvent (Line 8859, «nxdb.pas»)
> > [00B1C992] nxdb.TnxIndexDataSet.DataEvent (Line 11458, «nxdb.pas»)
> > [007D8EC4] Data.DB.TDataSet.SetState
> > [007D9348] Data.DB.TDataSet.SetActive
> > [00B1B5D0] nxdb.TnxDataset.SetActive (Line 11005, «nxdb.pas»)
> > [007D9135] Data.DB.TDataSet.Close
> > [007D89A6] Data.DB.TDataSet.Destroy
> > [00501E6A] System.Classes.TComponent.Notification
> > [755F7885] USER32.DispatchMessageW
> > [0077B853] Vcl.Forms.TApplication.ProcessMessage
> > [0077B896] Vcl.Forms.TApplication.HandleMessage
> > [0077BBC9] Vcl.Forms.TApplication.Run
> > [03298390] oroplus.Initialization (Line 1960, «oroplus.dpr»)
> > [770E3368] kernel32.BaseThreadInitThunk
>
>
> I’ve seen a similar error which was caused by changing screen resolution
> scale to 125%. As soon as I changed it back to 100% it disappeared.
>
> NXDB 4.12.01 and Delphi Berlin 10.1 update 1
>
>
> Exception: EArgumentOutOfRangeException
> Message: Argument out of range
> …..
> —————————————————————
> Callstack (Frames):
> [004531B1] System.Generics.Collections.TListHelper.CheckItemR ange (Line 1158,
> «System.Generics.Collections.pas») [00A78414]
> Vcl.Grids.TCustomGrid.ColWidthsChanged (Line 5284, «Vcl.Grids.pas»)
> [00A774E3] Vcl.Grids.TCustomGrid.SetColWidths (Line 4742, «Vcl.Grids.pas»)
> [00A711EE] Vcl.Grids.TCustomGrid.ChangeScale (Line 1714, «Vcl.Grids.pas»)
> [00DF77C7] Vcl.DBGrids.TCustomDBGrid.ChangeScale (Line 2421,
> «Vcl.DbGrids.pas») [0055EEAA] Vcl.Controls.TControl.ScaleForPPI (Line 6002,
> «Vcl.Controls.pas»)
> ================================================== ============
>
>
>
> Regards,
> Will