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

RxFPC: remove deprecated property TRxMemoryData.OnFilterRecordEx

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3968 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2015-02-26 11:26:15 +00:00
parent 81fa7edc30
commit cff96f0ecc
3 changed files with 5 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
components/rx/trunk/rxmemds.pas
View File

@ -51,9 +51,6 @@ type
TRxMemoryData = class(TDataSet)
private
{$IFDEF FIX_TRxMemoryData_Filter}
FOnFilterRecordEx: TFilterRecordEvent;
{$ENDIF}
FRecordPos: Integer;
FRecordSize: Integer;
FBookmarkOfs: Integer;
@ -82,13 +79,11 @@ type
function AddRecord: TMemoryRecord;
procedure CopyRecord(RecordData, Buffer: PChar);
function GetOnFilterRecordEx: TFilterRecordEvent;
function InsertRecord(Index: Integer): TMemoryRecord;
function FindRecordID(ID: Integer): TMemoryRecord;
procedure CreateIndexList(const FieldNames: string);
procedure FreeIndexList;
procedure QuickSort(L, R: Integer; Compare: TCompareRecords);
procedure SetOnFilterRecordEx(const AValue: TFilterRecordEvent);
procedure Sort;
function CalcRecordSize: Integer;
function FindFieldData(Buffer: Pointer; Field: TField): Pointer;overload;
@ -207,7 +202,6 @@ type
property OnDeleteError;
property OnEditError;
property OnFilterRecord;
property OnFilterRecordEx: TFilterRecordEvent read GetOnFilterRecordEx write SetOnFilterRecordEx;
property OnNewRecord;
property OnPostError;
@ -264,7 +258,7 @@ type
implementation
uses CustApp, rxdconst, LazUTF8, dbutils, dbconst, Variants, math;
uses CustApp, rxdconst, LazUTF8, dbutils, dbconst, Variants, math, LResources;
const
ftBlobTypes = [ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle,
@ -522,15 +516,6 @@ begin
Result := TMemoryRecord.Create(Self);
end;
function TRxMemoryData.GetOnFilterRecordEx: TFilterRecordEvent;
begin
{$IFDEF FIX_TRxMemoryData_Filter}
Result:=FOnFilterRecordEx;
{$ELSE}
Result:=OnFilterRecord;
{$ENDIF}
end;
function TRxMemoryData.FindRecordID(ID: Integer): TMemoryRecord;
var
I: Integer;
@ -1004,24 +989,15 @@ var
SaveState: TDataSetState;
begin
Result := True;
{$IFDEF FIX_TRxMemoryData_Filter}
if Assigned(OnFilterRecordEx) then
{$ELSE}
if Assigned(OnFilterRecord) then
{$ENDIF}
begin
if (FRecordPos >= 0) and (FRecordPos < RecordCount) then
begin
SaveState := SetTempState(dsFilter);
try
RecordToBuffer(Records[FRecordPos], TempBuffer);
{$IFDEF FIX_TRxMemoryData_Filter}
OnFilterRecordEx(Self, Result);
{$ELSE}
OnFilterRecord(Self, Result);
{$ENDIF}
except
// Application.HandleException(Self);
CustomApplication.HandleException(Self);
end;
RestoreState(SaveState);
@ -1722,16 +1698,6 @@ begin
until I >= R;
end;
procedure TRxMemoryData.SetOnFilterRecordEx(const AValue: TFilterRecordEvent);
begin
{$IFDEF FIX_TRxMemoryData_Filter}
CheckBiDirectional;
FOnFilterRecordEx:=AValue;
{$ELSE}
OnFilterRecord:=AValue;
{$ENDIF}
end;
function TRxMemoryData.CompareRecords(Item1, Item2: TMemoryRecord): Integer;
var
Data1, Data2: PChar;
@ -2102,4 +2068,6 @@ begin
Result := Length(GetBlobFromRecord(FField))
end;
initialization
RegisterPropertyToSkip(TRxMemoryData, 'OnFilterRecordEx', 'Old property', '');
end.