| 60 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 61 |  | function AppendRawFile(LocSep: Boolean; Src: TStream): Integer; overload; virtual; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 62 |  | function AppendRawFile(LocSep: Boolean; Src: TByteData): Integer; overload; | 
 
 
 
 
 
 
 
 
 
 
 | 63 | < | function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload; | 
 
 
 
 
 
 
 
 
 | 63 | > | //    function AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; overload; | 
 
 
 
 
 
 
 
 
 
 
 | 64 |  | published | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 65 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 66 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 276 |  | Result := AppendRawFile(LocSep, data); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 277 |  | data.Free; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 278 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 | 279 | < |  | 
 
 
 
 
 
 
 
 
 | 279 | > | { | 
 
 
 
 
 
 
 
 
 
 
 | 280 |  | function TDataAccess.AppendRawFile(LocSep: Boolean; Size: Integer; Src: Pointer): Integer; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 281 |  | var | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 282 |  | data: TStream; | 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 | 287 |  | Result := AppendRawFile(LocSep, data); | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 288 |  | data.Free; | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 289 |  | end; | 
 
 
 
 
 
 
 
 
 
 
 | 290 | < |  | 
 
 
 
 
 
 
 
 
 | 290 | > | } | 
 
 
 
 
 
 
 
 
 
 
 | 291 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 292 |  |  | 
 
 
 
 
 
 
 
 
 
 
 
 
 | 293 |  | procedure TDataAccess.SetDataOS(DataOS: TDataOS); |