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' [email protected] [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;
