Filter auch mit

[Computersklave]

Hallo, habe folgenden Code: :?

Delphi-Quellcode:

procedure TSuche_Empf.TableSucheFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
 if (TableSuche.FieldByName('Kategorie').AsString=Edit1.text)
  and (TableSuche.FieldByName('Firma').AsString=FlatEdit1.text)
  then Accept:=true
  else Accept:=false;
end;

Ich möchte nun, daß wenn ich in FlatEdit1.text z.B. "Sch" stehen habe alle
Datensätze im Feld FIRMA die mit "Sch" anfangen (z.B. Schuster, Schmidt, Schulze etc.)
mit angenzeigt werden.
Der Wert für KATEGORIE sollte allerdings exakt stimmen, wie es ja zur Zeit auch geht.

:idea: Hat jemand einen Tipp?

[Leuselator]

Delphi-Quellcode:

procedure TSuche_Empf.TableSucheFilterRecord(DataSet: TDataSet; 
  var Accept: Boolean); 
begin 
if (copy(TableSuche.FieldByName('Kategorie').AsString,1,Length(Edit1.Text))=Edit1.text) 
  and (TableSuche.FieldByName('Firma').AsString=FlatEdit1.text) 
  then Accept:=true 
  else Accept:=false; 
end;

[Computersklave]

:-D Danke.

Funktioniert super.

Ich glaub' ich habs sogar kappiert.
Es werden die Zeichen die ich eingegeben habe gezählt und nur diese Anzahl
der Zeichen werden verglichen.
Oder?

[Leuselator]

Juppsa - und zwar von links angefangen.
Gruß