возвращает указатель на содержимое поля
function asDataPointer(nField: integer): PChar; overload; virtual; abstract;
nField
размер данных
............................ type //для доступа к методу TMemoryStream.SetPointer} TMemoryStreamAccess = class(Classes.TMemoryStream); ............................ function LoadBlodFieldDataToStream(ADbRes: TDBResult; AFieldIndex: Integer; AStream: TStream): Boolean; begin Result:= Assigned(ADbRes) and Assigned(AStream) and AFieldIndex < (AFieldIndex < ADbRes.numFields); if Result then TMemoryStreamAccess(AStream) .SetPointer(ADbResult .asDataPointer(AFieldIndex),ADbResult.sizeValue(AFieldIndex)); end; end;