[Delphi] wyszykiwanie w tablicy..

Przykładowa tablica:
bartek
przemek
bratek
wojtek

jak wyszukać jakiś tekst powiedzmy z edita w tablicy ale w taki sposób, że po wpisaniu z edicie np. "tek" znalezionymi elementami będą barTEK, i braTEK. Proszę o pomoc...

--
Polacy nie piją - oni degustują,
Rosjanie nie chleją - oni ucztują...
A co u Was... ;)

if Pos(AnisUpperString(Edit.Text), AnisUpperString(element_z_tablicy)) > 0 then DodajDoWynikow(element_z_tablicy)

--
Vogel [[email protected]]

Life is just a dream, you know...
[Cowboy Bebop]

a coś działającego....

--
Polacy nie piją - oni degustują,
Rosjanie nie chleją - oni ucztują...
A co u Was... ;)

var
j:integer;

for j:=0 to high(tablica) do
if Pos(AnisUpperCase(Edit.Text), AnisUpperCase(tablica[j])) <> 0 then
showmessage(inttostr(j));

--

Delphi 6

Pozdrówka

ok działa. thx

--
Polacy nie piją - oni degustują,
Rosjanie nie chleją - oni ucztują...
A co u Was... ;)