52 |
|
{$ELSE} |
53 |
|
unix, |
54 |
|
{$ENDIF} |
55 |
< |
SysUtils, Classes, IBHeader, IB, IBExternals, CustApp, IBTypes, IBSQL; |
55 |
> |
SysUtils, Classes, IB, IBExternals, CustApp, IBTypes; |
56 |
|
|
57 |
|
const |
58 |
|
DefaultBufferSize = 32000; |
525 |
|
implementation |
526 |
|
|
527 |
|
uses |
528 |
< |
IBSQLMonitor, Math, FBMessages; |
528 |
> |
IBSQLMonitor, FBMessages; |
529 |
|
|
530 |
|
{ TIBBackupRestoreService } |
531 |
|
|
1564 |
|
|
1565 |
|
var |
1566 |
|
i,j, k: Integer; |
1567 |
– |
Value: Char; |
1567 |
|
begin |
1568 |
|
for i := 0 to High(FLimboTransactionInfo) do |
1569 |
|
FLimboTransactionInfo[i].Free; |