Szukanie w tabeli c.d.

Jakiś czas temu pisałem odnośnie szukania ciągu znaków w tabeli. Niestety poniższa procedura szuka lecz tylko ciągów liczbowych. Co zrobić żeby szukała tekstu ?

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
begin
if Table1.FindKey([Edit1.Text]) = False then ;
begin
Table1.FindNearest([Edit1.Text]);
end;
end;
end;

Dzięks

ort! pokombinować z tym

Table1.Filter

lub

DataSource.DataSet.Locate('Tytul','tekst_który_szukasz',loCaseInsensitive,loPartialKey])

Na pewno w ten sposób nie zrobisz, bo FindNearest szuka liczb. Nie bardzo wyobrażam sobie szukanie najbliższego stringa...

Nie bardzo wyobrażam sobie szukanie najbliższego stringa...

To dokładnie przeczytaj post wyżej i nie wypowiadaj się jeśli nie wiesz :-[

Table1.Filter[nazwa_kolumny]:= "wartosc";

mysle ze jezeli chodzi o filtrowanie to na poczatek ci wystarczy...

pozdro.

Liczba odpowiedzi na stronę

Szukanie w tabeli c.d.

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
begin
if Table1.FindKey([Edit1.Text]) = False then ;
begin
Table1.FindNearest([Edit1.Text]);
end;
end;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1

Praca dla programistów

Forum dyskusyjne

Sprawy administracyjne

O nas

Skontaktuj się z nami

Szukanie w tabeli c.d.

procedure TForm1.Edit1Change(Sender: TObject); begin if Edit1.Text <> '' then begin if Table1.FindKey([Edit1.Text]) = False then ; begin Table1.FindNearest([Edit1.Text]); end; end; end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text <> '' then
begin
if Table1.FindKey([Edit1.Text]) = False then ;
begin
Table1.FindNearest([Edit1.Text]);
end;
end;
end;