Refactor: Move connection reference out of TSortItems.ComposeOrderClause, so the caller must pass it as a parameter

This commit is contained in:
Ansgar Becker
2023-01-22 13:34:01 +01:00
parent 0e6d814e03
commit 075aa18bc7
3 changed files with 11 additions and 9 deletions

View File

@ -55,7 +55,7 @@ begin
FSortItems := TSortItems.Create(True);
FSortItems.Assign(MainForm.DataGridSortItems);
FOldOrderClause := FSortItems.ComposeOrderClause;
FOldOrderClause := FSortItems.ComposeOrderClause(MainForm.ActiveConnection);
// First creation of controls
DisplaySortingControls(Sender);
@ -284,7 +284,7 @@ end;
}
procedure TfrmDataSorting.Modified;
begin
btnOk.Enabled := FSortItems.ComposeOrderClause <> FOldOrderClause;
btnOk.Enabled := FSortItems.ComposeOrderClause(MainForm.ActiveConnection) <> FOldOrderClause;
end;