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

RxFPC:fix unneeded typecastings - ID0031435

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5769 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-02-27 05:44:48 +00:00
parent 79a60e0bfb
commit eeb56984c3
2 changed files with 54 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/rx/trunk/rxdb/rxdbgrid_findunit.pas
View File

@@ -158,11 +158,11 @@ begin
end;
end;
end;
{
type
THckGrid = class(TCustomDBGrid)
end;
}
procedure TrxDBGridFindForm.SetGrid(AGrid: TRxDBGrid);
var
i:integer;
@@ -182,8 +182,10 @@ begin
end;
FDataSet:=nil;
if Assigned(FGrid) and Assigned(THckGrid(FGrid).DataSource) then
FDataSet:=THckGrid(FGrid).DataSource.DataSet;
if Assigned(FGrid) and Assigned(FGrid.DataSource) then
FDataSet:=FGrid.DataSource.DataSet;
{ if Assigned(FGrid) and Assigned(THckGrid(FGrid).DataSource) then
FDataSet:=THckGrid(FGrid).DataSource.DataSet;}
BtnFind.Enabled:=Assigned(FDataSet) and FDataSet.Active
end;