Na sonst noch Wünsche? Du hast Glück, dass ich heute gut drauf bin....
Also hier ein Beispiel wie ich es löschen würde:
1. Eingabefeld auf eine Form legen. Am besten ein TEdit
2. Button für die Suche ebenfalls auf das Form (hast Du sicher schon)
3. In OnButtonClick folgenden Code einfügen:
Code:
procedure .....
var
xStr,
xWord,
xWhere : string;
xPos : integer;
begin
xWhere := '';
xStr := Trim(Edit1.Text);
while xStr <> '' do
begin
xPos := Pos(' ', xStr);
if xPos > 0 then
begin
xWord := Trim(Copy(xStr, 1, xPos));
if xWord <> '' then
begin
if xWhere <> '' then
xWhere := xWhere +' AND SearchField LIKE %'+ xWord + '%'
else
xWhere := ' SearchField LIKE %'+ xWord + '%';
end;
Delete(xStr, 1, xPos);
xStr := Trim(xStr);
end
else if xStr <> '' then
begin
if xWhere <> '' then
xWhere := xWhere +' AND SearchField LIKE %'+ xWord + '%'
else
xWhere := ' SearchField LIKE %'+ xWord + '%';
xStr := '';
end;
end;
if xWhere <> '' then
begin
Query.SQL.Text := 'SELECT * FROM TableName '+
'WHERE '+xWhere;
.... und so weiter...
end;
end;
Du musst das natürlich noch etwas ergänzen, mit dem was in den vorgängigen Nachrichten so alles gesagt wurde. Will Dir ja nicht gleich das ganze Programm liefern
Gruss
Xaver
PS: ich verwende x bei lokalen Variablen; hat aber nichts mit meinem Namen zu tun....
