ADO og den igen med søge (lang tekst)

Jeg er en af de heldige der har fået hjælp
af dkn : )  og også af snowball.
Det har jeg fået til ADO i delphi og derved
fået mange til at til at virke.
Det er jeg glad for.
Det er svært at forklare hvad man ønsker sig.
Det er endnu mere svært at gøre det skriftligt.
Men de er rigtig gode til at "tyde" ens mening/ønske.

Jeg har fået nogle læker søgninger.
Tag fx bare den her :

procedure TForm1.ListBox1Click(Sender: TObject);
var
  AltOK: Boolean;
begin
  AltOK:=ADOTable1.Locate
  ('Navn',ListBox1.Items[Listbox1.ItemIndex],[loCaseInsensitive]);
end;

Den er rigtig god.

Snowball lavede engang en der kunne snuppe et ord af
den database og sætte den ind i en Grip.
Den var for svær til mig.

Fællse for dem alle er noget jeg savnre.
Lad mig beskrive :

Jeg har en access database kaldet mening.mdb
I den er der en tabel kaldet meninger.
Den har 2 felter :
ID
tekst1
tekst2.

I tekst 1 kan brugeren skrive fx :

min mening er at delphi er delt god som
programmerings program

Den tekst har id nummer 1

i ID nummer 2 står der :

min mening om visual basic er at det
er synd af det er skrottet.

så langt så godt.



Nu har jeg så en tekstboks hvor jeg kan søge i den hedder
tekst1.txt  i den skriver jeg mening og nu klikker
jeg på en kanp, hvor der står søg på.

nu skriver jeg ordet "mening" i den tekstbox


Så finder ADO delphi alle de steder at der hvor ordet
"mening" forekommer og det er lige meget om det står
først eller sidst i teksten, den finder dem alle.

den lægger den ind i en listbox1.

Kan det lade sig gøre.

Dem jeg til nu har kunnet finde ud af søger nemlig kun
påførste ord.

VH
koden12