Einfache Suchfunktion

[Die Muhkuh]

Sorry geht net

Delphi-Quellcode:

Source: 

  with Table1 do
  begin
    if TEdit.Text <> '' then // hier kommt fehlermeldung 
                           //Unit1.pas(33): Methodenbezeichner erwartet
    begin
      Active   := False;
      Filtered := False;
      Filter   := 'Rezept =' + QuotedStr(TEdit.Text + '*');
      Filtered := True;
      Active   := True;
    end
    else
      Filtered := False;
  end;