Hej.
Jag gör en enkel sökning, så här.

procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
s := Edit1.Text + '%';
Query1.Close;
Query1.Prepare;
Query1.Params[0].AsString := S;
Query1.Open;

end;

Finns inte det jag söker, säg att jag söker"D" men den finns inte lägger den sig på närmaste säg "C".

Hur gör jag för att få ett besked att D inte finns, som ex. viss att texten blir färgad osv.

BGM