Per SQL ein Memo-Feld durchsuchen

[Yngvi]

Wie schon ein andere User festestellt hat, kann man ein Memofeld nicht nach Strings durch suchen.

Hilfreich währe, wenn Du Deine Tabellenstrucktur Postest.

Vorweg ein Tipp:

Lege doch ein Suchfeld in Deiner Tabelle an z.B.Titel o. ä.
meinetwegen setze einen Sekundäindex auf das Feld erhöht die Suchgeschwindigkeit
dann kannst Du mit Query1.FindNearest([Edit2.Text]);//mit einem TEdit
oder mit einer Combox
Query1.Locate('BUCHTEXT',cbSuch.Text,[loPartialKey]);
natürich muss Du bei einer Combobox die Daten im FormCrate Event erts in die Comox einlesen.
Mit FindNearst, muss das Feld indiziert sein!!!

Hier ein kleiner Auszug von mir

procedure TfrmBelege.FormCreate(Sender: TObject);
begin
DateTimePicker1.Enabled := False;
DateTimePicker1.Date := Date;
cbSuch.Clear;
BudgetData.tblBelege.First;
while not BudgetData.tblBelege.Eof do
begin
cbSuch.Items.Add(BudgetData.tblBelegeBUCHTEXT.Valu e);
BudgetData.tblBelege.Next;
end;
BudgetData.tblBelege.First;
cbSuch.Text := BudgetData.tblBelegeBUCHTEXT.Value;


inipfad := ExtractFilePath(ParamStr(0))+ '\budget.ini';
appini := TIniFile.Create(inipfad);

BudgetData.tblBelegeEINNAHMEN.DisplayFormat :=
AppIni.ReadString('Geld','Einheit','###,###,###.00 DEM');
BudgetData.tblBelegeAUSGABEN.DisplayFormat :=
AppIni.ReadString('Geld','Einheit','###,###,###.00 DEM');
AppIni.Free;

DBinfo;

end;