paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Applied cleanup patch from Luiz Americo

Browse Source 
git-svn-id: trunk@20866 -
This commit is contained in:
michael 2012-04-14 14:49:01 +00:00
parent f993b813b1
commit 1ee57d4edd
2 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/base/dataset.inc
View File

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

1
packages/fcl-db/src/base/db.pas
View File

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