Hi!

If you have a compiled version with the fix, I think a lot of people
would enjoy if you can share the executable ;-)

Carlos
www.firebirdnews.org - www.FireBase.com.br

DSsicfs> 02.12.2019 18:28, 'Carlos H. Cantu' listas@... [firebird-support] wrote:

>> IB DataPump from Clevercomponents has problems with FB 3, but now it
>> is open source. It is made in Delphi. If someone interested and with
>> some free time can fix the problem and even update the application:
>>
>> https://github.com/CleverComponents/Interbase-DataPump/

DSsicfs> Nice to see that it is open source. If the problem is
DSsicfs> "Index out of range" error then
DSsicfs> here is the patch for it:

DSsicfs> --- ibpMain.pas 2002-11-01 03:40:02.000000000 +0100
DSsicfs> +++ ibpMain.pas.new 2019-02-18 19:23:28.403022900 +0100
DSsicfs> @@ -2177,7 +2177,8 @@
DSsicfs> begin
DSsicfs> rd.Add(TrimRight(qryFree.Fields[0].AsString));
DSsicfs> i := lst.IndexOf(rd[rd.Count-1]);
DSsicfs> - lst.Delete(i);
+ if i >>= 0 then
DSsicfs> + lst.Delete(i);
DSsicfs> DelDep(rd[rd.Count-1]);
DSsicfs> qryFree.Next;
DSsicfs> end;