Auto-Filter wie in Excel?

[Anfänger33]

In Excel kann man mit Auto-Filter seine Daten in den Spalten sortieren.
Gibt es ein solche Funktion auch in Lazarus?

[Mathias]

Meinst du in der IDE oder bei einer Liste in deinem Programm ?

[theo]

In Excel kann man mit Auto-Filter seine Daten in den Spalten sortieren.
Gibt es ein solche Funktion auch in Lazarus?

Da müsstest du schon sagen in welchem Zusammenhang.
"Einfach so" wohl eher nicht, aber mit SQL kann man alles filtern und sortieren.

[Anfänger33]

Naja im fertigen Programm. Der User soll selbst die Filter einstellen können.

Beispiel:
Spalten Nachname, Vorname
Der User soll filtern können nach z.B. Nachname "Müller" und Vorname "Hans". Am Ende sollen nur die Namen "Müller" und "Hans" angezeigt werden.

[Mathias]

Beispiel:
Spalten Nachname, Vorname
Der User soll filtern können nach z.B. Nachname "Müller" und Vorname "Hans". Am Ende sollen nur die Namen "Müller" und "Hans" angezeigt werden.

GTK4 kann dies mit ColumnView und dem GTKSorter.
Ob die LCL auch sowas bietet, kann ich nicht sagen.

Soviel mir ist, kann dies TStringGrid, der LCL.

[paweld]

https://wiki.freepascal.org/TdxDBGridController

[corpsman]

Also in einer TStringgrid habe ich das bisher immer über die Rowhöhe gemacht (Beispiel aus dem FPC_DOOM WAD_Viewer:

Code: Alles auswählen

Procedure TForm1.Edit1Change(Sender: TObject);
Var
  c, i: Integer;
  s: String;
Begin
  StringGrid1.BeginUpdate;
  ClearOtherFilter(edit1);
  If Edit1.text = '' Then Begin
    For i := 1 To StringGrid1.RowCount - 1 Do Begin
      StringGrid1.RowHeights[i] := StringGrid1.RowHeights[0];
    End;
    c := StringGrid1.RowCount - 1;
  End
  Else Begin
    s := UpperCase(edit1.text);
    c := 0;
    For i := 1 To StringGrid1.RowCount - 1 Do Begin
      If pos(s, StringGrid1.Cells[IndexLumpName, i]) = 0 Then Begin
        StringGrid1.RowHeights[i] := 0;
      End
      Else Begin
        StringGrid1.RowHeights[i] := StringGrid1.RowHeights[0];
        c := c + 1;
      End;
    End;
  End;
  StringGrid1.EndUpdate();
  label2.caption := format('%d of %d lumps', [c, StringGrid1.RowCount - 1]);
End; 

Aber wenn's da nen eleganteren Weg gibt würde der mich auch interessieren

[Mathias]

Dies ist ein Ansatz, wie man die Grid sortieren kann.

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
var
  grid: TStringGrid;
  y, x: integer;
begin
  grid := TStringGrid.Create(Self);
  grid.Parent := Self;

  grid.FixedCols := 0;
  grid.DoubleBuffered := True;
  grid.TitleFont.Style := [fsBold];
  grid.AlternateColor := clMoneyGreen;
  grid.ColumnClickSorts := True;

  grid.Align := alClient;
  grid.RowCount := 18;
  grid.ColCount := 4;

  for x := 0 to grid.ColCount - 1 do begin
    grid.Cells[x, 0] := 'Col' + IntToStr(x);

    for y := 1 to grid.RowCount - 1 do begin
      grid.Cells[x, y] := IntToStr(Random(100));
    end;
  end;
end;

[charlytango]

wenn ich davon ausgehe dass dein "Grid" ein TDBGrid ist der per SQL mot Daten gefüllt wird, empfehhle ich mal den Tip von paweld : viewtopic.php?p=149752#p149752
Das Package kann noch viel mehr und ist recht gut konfigurierbar.

[h-elsner]

Für ein normales TStringGrid (welches ich sehr häufig benutze) gefällt mir die Idee mit der Zeilenhöhe sehr gut. Warum bin ich nicht darauf gekommen? Es läuft auch sehr schnell ab.
Weil ich das ab jetzt viel benutzen werde, habe ich das mal allgemeiner gefasst:

Code: Alles auswählen

function FilterColumn(var aGrid: TStringGrid;
                      const aCol: integer; aText: string): integer;
var
  i: integer;

begin
  result:=0;
  aGrid.BeginUpdate;
  try
    for i:=aGrid.FixedRows to aGrid.RowCount-1 do begin
      if aGrid.Cells[aCol, i]=aText then begin
        aGrid.RowHeights[i]:=aGrid.DefaultRowHeight;
        result:=result+1;
      end else
        aGrid.RowHeights[i]:=0;
    end;
  finally
    aGrid.EndUpdate;
  end;
end;

procedure ResetAllFilterColumn(var aGrid: TStringGrid);
var
  i: integer;

begin
  aGrid.BeginUpdate;
  try
    for i:=aGrid.FixedRows to aGrid.RowCount-1 do
      aGrid.RowHeights[i]:=aGrid.DefaultRowHeight;
  finally
    aGrid.EndUpdate;
  end;
end;

[fliegermichl]

Für ein normales TStringGrid (welches ich sehr häufig benutze) gefällt mir die Idee mit der Zeilenhöhe sehr gut. Warum bin ich nicht darauf gekommen? Es läuft auch sehr schnell ab.
Weil ich das ab jetzt viel benutzen werde, habe ich das mal allgemeiner gefasst:
...

Kannst du mal ein Beispiel daraus machen und hier posten?

[h-elsner]

Kannst du mal ein Beispiel daraus machen und hier posten?

Wie meinst du das? Wie man die function anwendet?

[h-elsner]

Ein Beispielprojekt, so etwa?

TestFilterColumn.zip

(352.04 KiB) 114-mal heruntergeladen

[fliegermichl]

Ein Beispielprojekt, so etwa?
TestFilterColumn.zip

Danke für das Testprojekt. Irgendwie raffe ich das nicht. Oben stand beschrieben, daß da was mit der Zellenhöhe sei. Das hab ich nicht kapiert und auch aus dem Beispiel werde ich da nicht so richtig schlau draus. Möglicherweise habe ich grad einen kleinen Blackout im Kopf.

[corpsman]

Die Idee ist eigentlich recht einfach

In einer Stringgrid kannst du jeder Zeile eine Eigene "Höhe" in Pixeln geben.
Die Filterfunktion setzt die Höhe einer Zeile die nicht angezeigt werden soll auf 0
\-> der Mensch sieht sie nicht mehr, für den Rechner ist sie noch da, alle sind Glücklich und das Stringgrid wurde nicht "umsortiert" oder ähnliches.

Code: Alles auswählen

 aGrid.RowHeights[i]:=0;
 

Ich hatte das vor allem gepostet, weil ich sehen wollte ob es etwas besseres gibt, weil sich das für mich a bissl nach Missuse anfühlt, auch wenn es tadellos funktioniert