# | Line 405 | Line 405 | end; | |
---|---|---|
405 | procedure TFB30Attachment.getFBVersion(version: TStrings); | |
406 | var bufferObj: TVersionCallback; | |
407 | begin | |
408 | + | version.Clear; |
409 | bufferObj := TVersionCallback.Create(version); | |
410 | try | |
411 | with FFirebird30ClientAPI do | |
412 | + | begin |
413 | UtilIntf.getFbVersion(StatusIntf,FAttachmentIntf,bufferObj); | |
414 | + | Check4DataBaseError; |
415 | + | end; |
416 | finally | |
417 | bufferObj.Free; | |
418 | end; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |