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

rx, fix 64 bit compile

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1017 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2009-11-23 18:05:21 +00:00
parent 11698c0782
commit 3d481b87e1
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/rxmemds.pas
View File

@ -844,7 +844,7 @@ begin
if Boolean(RecBuf[0]) then Move(Buffer^, RecBuf[1], DataSize); if Boolean(RecBuf[0]) then Move(Buffer^, RecBuf[1], DataSize);
end; end;
if not (State in [dsCalcFields, dsFilter, dsNewValue]) then if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
DataEvent(deFieldChange, Longint(Field)); DataEvent(deFieldChange, ptrint(Field));
end; end;
end; end;
@ -1506,7 +1506,7 @@ begin
if FOpened and FModified then FField.Modified := True; if FOpened and FModified then FField.Modified := True;
if FModified then if FModified then
try try
FDataSet.DataEvent(deFieldChange, Longint(FField)); FDataSet.DataEvent(deFieldChange, ptrint(FField));
except except
Application.HandleException(Self); Application.HandleException(Self);
end; end;