It looks like you're new here. If you want to get involved, click one of these buttons!
procedure TfrmSqlBuild.grdOutputAfterEdit(Sender: TObject; ACol, ARow: Integer; Text: WideString);varc: integer;beginif ACol = 1 thenbeginif (Text = 'ASC') or (Text = 'DESC') thenbegin// Sortierreihenfolge hinzufügenc := (ColReihe.Chooser as TLMDGridPickListChooser).Items.Count;(ColReihe.Chooser as TLMDGridPickListChooser).Items.Add(IntToStr(c+1));grdOutput.Cells[2, ARow].Text := IntToStr(c+1);end;end;end;
Comments