Kann man dann auch sowas umarbeiten ohne with?
Delphi-Quellcode:
procedure TFRM_Main.DBG_BuecherTitleClick(Column: TColumn);
begin
with DM_Buecher.ADS_Buecher do
if sort = Column.Field.FieldName then
sort := Column.Field.FieldName + ' DESC'
else
sort := Column.Field.FieldName
end;