| # | Line 50 | Line 50 | type | |
|---|---|---|
| 50 | FAttachment: TFB30Attachment; | |
| 51 | FTransaction: TFB30Transaction; | |
| 52 | protected | |
| 53 | + | function Attachment: IAttachment; override; |
| 54 | procedure NeedFullMetadata; override; | |
| 55 | public | |
| 56 | constructor Create(Attachment: TFB30Attachment; Transaction: TFB30Transaction; | |
| # | Line 99 | Line 100 | const | |
| 100 | ||
| 101 | { TFB30BlobMetaData } | |
| 102 | ||
| 103 | + | function TFB30BlobMetaData.Attachment: IAttachment; |
| 104 | + | begin |
| 105 | + | Result := FAttachment; |
| 106 | + | end; |
| 107 | + | |
| 108 | procedure TFB30BlobMetaData.NeedFullMetadata; | |
| 109 | var stmt: IStatement; | |
| 110 | begin | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |