Subject | Re: [firebird-support] A recommendation (database migration) |
---|---|
Author | Dimitry Sibiryakov |
Post date | 2019-12-02T17:56:49Z |
02.12.2019 18:28, 'Carlos H. Cantu' listas@... [firebird-support] wrote:
here is the patch for it:
--- ibpMain.pas 2002-11-01 03:40:02.000000000 +0100
+++ ibpMain.pas.new 2019-02-18 19:23:28.403022900 +0100
@@ -2177,7 +2177,8 @@
begin
rd.Add(TrimRight(qryFree.Fields[0].AsString));
i := lst.IndexOf(rd[rd.Count-1]);
- lst.Delete(i);
+ if i >= 0 then
+ lst.Delete(i);
DelDep(rd[rd.Count-1]);
qryFree.Next;
end;
--
WBR, SD.
> IB DataPump from Clevercomponents has problems with FB 3, but now itNice to see that it is open source. If the problem is "Index out of range" error then
> 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/
here is the patch for it:
--- ibpMain.pas 2002-11-01 03:40:02.000000000 +0100
+++ ibpMain.pas.new 2019-02-18 19:23:28.403022900 +0100
@@ -2177,7 +2177,8 @@
begin
rd.Add(TrimRight(qryFree.Fields[0].AsString));
i := lst.IndexOf(rd[rd.Count-1]);
- lst.Delete(i);
+ if i >= 0 then
+ lst.Delete(i);
DelDep(rd[rd.Count-1]);
qryFree.Next;
end;
--
WBR, SD.