Sortering i DBGrid

her fra delphi300.com
hvis du bruger sql

It's quite easy to do this.
I have a TQuery, TDatasource and TDbGrid on a form, linked together.

QuerySQL is a global string that holds the SQL-statement.

begin
  QuerySQL := 'SELECT * FROM Customer.DB';
  Query1.SQL.Add(QuerySQL);
  Query1.Open;
end;


In the DBGrid event OnTitleClick, we just add an ORDER-BY clause to the sql and refresh the query.

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  witzh Query1 do
  begin
    DisableControls;
    Close;
    SQL.Clear;
    SQL.Add(QuerySQL);
    SQL.Add('ORDER BY ' + Column.FieldName);
    Open;
    // Restore the title settings, otherwise everything
    // will be blue after a while
    DBGrid1.Columns.RestoreDefaults;
    Column.Title.Font.Color := clBlue;
    EnableControls;
  end;
end;

ups fra delphi3000.com manglede lige "0"

her er lige en til:

http://www.manualy.sk/uddf/pages/dbgrid.htm#dbgrid2

Jeg bruger MySQL Database....

Jeg ville gerne have pile på som der er i evt. outlook

har selv fundet ud af det