Código Delphi [-] if cbPorNombre.Checked then query1.sql[6] := ' order by nombre' else query1.sql[6] := 'order by codigo';
if cbPorNombre.Checked then query1.sql[6] := ' order by nombre' else query1.sql[6] := 'order by codigo';