* Applied cleanup patch from Luiz Americo

git-svn-id: trunk@20866 -

packages/fcl-db/src/base/dataset.inc

@@ -1311,11 +1311,6 @@ begin
   FFiltered := value;
 end;
 
-Procedure TDataset.SetFound(const Value: Boolean);
-
-begin
-  FFound := Value;
-end;
 
 Procedure TDataset.SetModified(Value: Boolean);
 
@@ -1325,7 +1320,7 @@ end;
 
 Procedure TDataset.SetName(const Value: TComponentName);
 
-function CheckName(FieldName: string): string;
+function CheckName(const FieldName: string): string;
 var i,j: integer;
 begin
   Result := FieldName;

packages/fcl-db/src/base/db.pas

@@ -1485,7 +1485,6 @@ type
     procedure SetFiltered(Value: Boolean); virtual;
     procedure SetFilterOptions(Value: TFilterOptions); virtual;
     procedure SetFilterText(const Value: string); virtual;
-    procedure SetFound(const Value: Boolean);
     procedure SetFieldValues(const fieldname: string; Value: Variant); virtual;
     procedure SetModified(Value: Boolean);
     procedure SetName(const Value: TComponentName); override;