pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fix delete record with blob fieldin TRxmemDataset

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@806 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2009-05-20 17:15:31 +00:00
parent 40dc9f3108
commit 6031b4b828
1 changed files with 3 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/rx/rxmemds.pas
View File

@ -186,7 +186,7 @@ type
FMemoryData: TRxMemoryData;
FID: Integer;
FData: Pointer;
FBlobs: Pointer;
FBlobs: PMemBlobArray;
function GetIndex: Integer;
procedure SetMemoryData(Value: TRxMemoryData; UpdateParent: Boolean);
protected
@ -386,15 +386,10 @@ begin
if FMemoryData <> nil then
begin
FMemoryData.FRecords.Remove(Self);
{ if FMemoryData.BlobFieldCount > 0 then
Finalize(PMemBlobArray(FBlobs)^[0], FMemoryData.BlobFieldCount);
ReallocMem(FBlobs, 0);}
if FMemoryData.BlobFieldCount > 0 then
begin
FinalizeBlobFields(FBlobs, Value.BlobFieldCount);
Freemem(FBlobs, Value.BlobFieldCount * SizeOf(TMemBlobData));
//Finalize(PMemBlobArray(FBlobs)^[0], FMemoryData.BlobFieldCount);
// ReallocMem(FBlobs, 0);
FinalizeBlobFields(FBlobs, FMemoryData.BlobFieldCount);
Freemem(FBlobs, FMemoryData.BlobFieldCount * SizeOf(TMemBlobData));
end;
FBlobs:=nil;
ReallocMem(FData, 0);
@ -411,8 +406,6 @@ begin
FMemoryData := Value;
if Value.BlobFieldCount > 0 then
begin
// ReallocMem(FBlobs, Value.BlobFieldCount * SizeOf(Pointer));
// Initialize(PMemBlobArray(FBlobs)^[0]);//, Value.BlobFieldCount);
GetMem(FBlobs, Value.BlobFieldCount * SizeOf(TMemBlobData));
FinalizeBlobFields(FBlobs, Value.BlobFieldCount);
// FillChar(FBlobs^, Value.BlobFieldCount * SizeOf(Pointer), 0);