SQLite + DBGrid + Sortieren über Spalten Click

[baumina]

S := FieldTypeNames[aDB.FieldByName('FeldName').DataType];

EDIT : Du könntest als WorkAround mal versuchen eine temporäre Tabelle anzulegen und dort das Summenfeld als Integer definieren. Danach deinen select in diese Tabelle als insert durchführen, evtl. klappt das ja.

[Andidreas]

Zitat von p80286:

Eine Krücke wäre es wenn Du explizit führende Nullen oder Leerzeichen einfügst. dann sollte es wie "richtig sortiert" aussehen.

Das mit den führenden Nullen is au net so s wahre...
Selbst wenn ich in der SQLite wieder ein Text Feld habe in dem die Mengen mit führenden Nullen stehen entfernt mir mein SUM() diese wieder und ich steh wieder vor dem Problem das ich einen String habe und nicht richtig sortieren kann...

[Andidreas]

Also nach bisl Testerei hab ich jetzt die folgenden Lösung (hätte ich auch früher drauf kommen können)...

Ich habe vorhin festgestellt das wenn ich mein summiertes Mengen Feld (welches als Integer in der Datenbank definiert ist) über den Alias Namen in der Order By Klausel sortiere, dass ich dann das richtige Sortier Ergebnis erhalte.
Also habe ich mich jetzt gegen die "IndexFieldName" Funktion der TUniQuery entschieden und sortiere im OnTitleClick des DBGrids wieder über einen SQL Befehl (ich denke die Lösung ist vertretbar, da meine SQLite auf dem Client liegt und so kein Unterschied entsteht ob ich auf dem Client die Ergebnis Menge sortiere oder mir das Ergebnis neu sortiert hole)

Meiner Meinung nach ist in der DevArt Komponente ein Bug und es ist nicht ein Fehler der SQLite Developer wie es AlexP im DevArt Forum (in dem Beitrag den baumina gepostet hat) darstellt...

Hier anbei mein Source für den Sort:

Delphi-Quellcode:

  //Get Sort Column Number and Name
  If Column.Index = giSortColumn Then
  Begin
    If gsSortOrder = 'ASC' Then gsSortOrder := 'DESC' Else gsSortOrder := 'ASC';
  End Else
  Begin
    gsSortOrder := 'ASC';
  End;

  giSortColumn := Column.Index;
  sFieldName := Column.FieldName;


  //Sort via SQL
  Try
    With (sqlitefile_query1) Do
    Begin
      Active := False;
      datsrc_test.DataSet := Nil;
      SQL.Clear;
      SQL.Add('Select ');
      SQL.Add('COMMON, COM_NO, COM_KZ, SUM(COMSTT) as "Test" ');
      SQL.Add('From DATCOM ');
      SQL.Add('Group By COMMON, COM_NO, COM_KZ ');
      SQL.Add('Order By ' + sFieldName + ' ' + gsSortOrder);
      datsrc_test.DataSet := sqlitefile_query1;
      Active := True;
    End;
  Except
    On E:Exception Do
    Begin
      MessageDlg(E.Message, mtError, [mbOK], 0);
      Exit;
    End;
  End;