# | Line 495 | Line 495 | begin | |
---|---|---|
495 | for i := 0 to DBInfo.GetCount - 1 do | |
496 | with DBInfo[i] do | |
497 | case getItemType of | |
498 | + | isc_info_db_read_only: |
499 | + | if getAsInteger <> 0 then |
500 | + | writeln(OutFile,'Database is Read Only') |
501 | + | else |
502 | + | writeln(OutFile,'Database is Read/Write'); |
503 | isc_info_allocation: | |
504 | writeln(OutFile,'Pages =',getAsInteger); | |
505 | isc_info_base_level: |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |