D7 Table filter mit Substring

[Sigi55]

Hi,

also ich mach das wie folgt:

Delphi-Quellcode:

procedure TForm1.Edit2Change(Sender: TObject);
begin
  IF TRIM(Edit2.Text) <> '' THEN
  BEGIN
    Table1.Filtered := True;
  END
  ELSE
  BEGIN
    Table1.Filtered := False;
  END;
end;

... und dann im OnFilterRecord Event

Delphi-Quellcode:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
type
  TFilterOption = (foCaseInsensitive, foNoPartialCompare);
  TFilterOptions = set of TFilterOption;
begin
  if edit2.Text <> '' then
  begin
    Accept:= Pos(UpperCase(Edit2.Text),UpperCase(Table1.FieldByName('Text').AsString)) > 0;
  end;
end;

Geht einwandfrei ohne Joker (*)

Gruß

Sigi

[idefix2]

Delphi-Quellcode:

procedure TForm1.Edit2Change(Sender: TObject);
begin
  IF TRIM(Edit2.Text) <> '' THEN
  BEGIN
    Table1.Filtered := True;
  END
  ELSE
  BEGIN
    Table1.Filtered := False;
  END;
end;

Wirst du pro Codezeile bezahlt?

[mkinzler]

Könnte man zu

Delphi-Quellcode:

Table1.Filtered := TRIM(Edit2.Text) <> '';

verkürzen.

[baumina]

und einem schnöden > statt einem <>.

[Sigi55]

Hi,

ist euch langweilig, dass ihr euch mit solch einem Paddelkram beschäftigen müsst ? :-D

Wenn ich mir das so anschaue, stammt das noch aus der 100% Copy&Paste Zeit :-D, weil alles in Großschrift.... mach ich sonst nicht.
Aber unser Einer ist ja auch mal ganz froh, wenn er aus seinem zugegebenermaßen kleinen Wissenschatz auch mal etwas beitragen kann.

Aber ja, Ihr hab ja recht, kann man alles schlanker machen:-)
... und noch ein Lob an das Forum hier, ohne die Dephipraxis hätt ich das Proggen schon lang an den Nagel gehängt.

cu

Sigi

[frankyboy1974]

hallo,

ich hab mich mal mit dbase vor 25 Jahren beschäftigt und am Ende bin ich zu dem Ergebniss gekommen, das ist gar keine relationale Datenbank.

mfg