bisher habe ich eine Suche in einem ClientDataSet so gelöst:
Procedure TfoMain.tbFindBClick(Sender: TObject);
Var Eingabe: String;
Begin
Eingabe := Trim(InputBox('Suchen...', 'Dateiname:', ''));
If Eingabe = '' Then Exit;
dbgB.SetFocus;
cdsB.Locate('Name', Eingabe, [loCaseInsensitive, loPartialKey]);
End;
//cds: ClientDataSet
//dbg: DBGrid
Jedoch wird mir dabei nur das Erste Begriff der gefunden wird makiert, wie kann ich alle Begriffe die gefunden werden makieren lassen.
Ciau
Procedure TfoMain.tbFindBClick(Sender: TObject);
Var Eingabe: String;
Begin
Eingabe := Trim(InputBox('Suchen...', 'Dateiname:', ''));
If Eingabe = '' Then Exit;
dbgB.SetFocus;
cdsB.Locate('Name', Eingabe, [loCaseInsensitive, loPartialKey]);
End;
//cds: ClientDataSet
//dbg: DBGrid
Jedoch wird mir dabei nur das Erste Begriff der gefunden wird makiert, wie kann ich alle Begriffe die gefunden werden makieren lassen.
Ciau
Comment