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

- fixed some warnings

Browse Source 
git-svn-id: trunk@26 -
This commit is contained in:
joost 2005-05-19 09:24:37 +00:00
parent c8dccad8d3
commit 99de6df34e
4 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fcl/db/dataset.inc
View File

@ -73,7 +73,7 @@ end;
Procedure TDataset.BindFields(Binding: Boolean); Procedure TDataset.BindFields(Binding: Boolean);
var i, j, FieldIndex: Integer; var i, FieldIndex: Integer;
FieldDef: TFieldDef; FieldDef: TFieldDef;
begin begin
{ {
@ -1493,13 +1493,11 @@ Var
end; end;
Var Var
PrevRecordCount : Integer;
Scrolled : Integer; Scrolled : Integer;
begin begin
CheckBrowseMode; CheckBrowseMode;
Result:=0; TheResult:=0; Result:=0; TheResult:=0;
PrevRecordCount:=FRecordCount;
If ((Distance>0) and FEOF) or If ((Distance>0) and FEOF) or
((Distance<0) and FBOF) then ((Distance<0) and FBOF) then
exit; exit;

2
fcl/db/datasource.inc
View File

@ -190,8 +190,6 @@ end;
Function TDataLink.GetRecordCount: Integer; Function TDataLink.GetRecordCount: Integer;
Var D: TDataSet;
begin begin
Result:=Dataset.FRecordCount; Result:=Dataset.FRecordCount;
If Result>BufferCount then If Result>BufferCount then

7
fcl/db/db.pp
View File

@ -188,7 +188,6 @@ type
Private Private
FAlignMent : TAlignment; FAlignMent : TAlignment;
FAttributeSet : String; FAttributeSet : String;
FBuffers : ppchar;
FCalculated : Boolean; FCalculated : Boolean;
FCanModify : Boolean; FCanModify : Boolean;
FConstraintErrorMessage : String; FConstraintErrorMessage : String;
@ -883,7 +882,6 @@ type
FBufferCount: Longint; FBufferCount: Longint;
FCalcBuffer: PChar; FCalcBuffer: PChar;
FCalcFieldsSize: Longint; FCalcFieldsSize: Longint;
FCanModify: Boolean;
FConstraints: TCheckConstraints; FConstraints: TCheckConstraints;
FDisableControlsCount : Integer; FDisableControlsCount : Integer;
FDisableControlsState : TDatasetState; FDisableControlsState : TDatasetState;
@ -893,7 +891,6 @@ type
FEOF: Boolean; FEOF: Boolean;
FEnableControlsEvent : TDataEvent; FEnableControlsEvent : TDataEvent;
FFieldList : TFields; FFieldList : TFields;
FFieldCount : Longint;
FFieldDefs: TFieldDefs; FFieldDefs: TFieldDefs;
FFilterOptions: TFilterOptions; FFilterOptions: TFilterOptions;
FFilterText: string; FFilterText: string;
@ -1835,16 +1832,12 @@ function TIndexDefs.GetIndexForFields(const Fields: string;
var var
i, FieldsLen: integer; i, FieldsLen: integer;
Last: TIndexDef; Last: TIndexDef;
Name: string;
Flds: string;
begin begin
Last := nil; Last := nil;
FieldsLen := Length(Fields); FieldsLen := Length(Fields);
for i := 0 to Count - 1 do for i := 0 to Count - 1 do
begin begin
Result := Items[I]; Result := Items[I];
Name := Result.Name;
Flds := Result.Fields;
if (Result.Options * [ixDescending, ixExpression] = []) and if (Result.Options * [ixDescending, ixExpression] = []) and
(not CaseInsensitive or (ixCaseInsensitive in Result.Options)) and (not CaseInsensitive or (ixCaseInsensitive in Result.Options)) and
AnsiSameText(Fields, Result.Fields) then AnsiSameText(Fields, Result.Fields) then

5
fcl/db/fields.inc
View File

@ -57,8 +57,6 @@ end;
Destructor TFieldDef.Destroy; Destructor TFieldDef.Destroy;
Var I : longint;
begin begin
Inherited destroy; Inherited destroy;
end; end;
@ -2205,9 +2203,6 @@ end;
Procedure TFields.CheckFieldName (Const Value : String); Procedure TFields.CheckFieldName (Const Value : String);
Var I : longint;
S : String;
begin begin
If FindField(Value)<>Nil then If FindField(Value)<>Nil then
DataBaseErrorFmt(SDuplicateFieldName,[Value],FDataset); DataBaseErrorFmt(SDuplicateFieldName,[Value],FDataset);