paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 12:49:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* RegenerateParams was not called in all cases

Browse Source 
git-svn-id: trunk@16068 -
This commit is contained in:
michael 2010-09-30 08:50:14 +00:00
parent 23ff1e0681
commit a2a493a60e
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-web/src/webdata/sqldbwebdata.pp
View File

@ -126,10 +126,13 @@ end;
procedure TCustomSQLDBWebDataProvider.SQLChanged(Sender: TObject);
begin
If (Sender=SelectSQL) and Assigned(FQuery) then
If (Sender=SelectSQL) then
begin
FQuery.Close;
FQuery.SQL.Assign(SelectSQL);
if Assigned(FQuery) then
begin
FQuery.Close;
FQuery.SQL.Assign(SelectSQL);
end;
If Not (csLoading in ComponentState) then
RegenerateParams;
end;