Поиск совпадений

[Claster]

Все привет, хочу реализовать следующее: если текст в Edit совпадает с тестом в StringList то вывести к примеру Hello Word.

В правильном хоть направлении иду?

//----------Содержится ли строка в списке-------------------------

function TForm1.ListCont(st: string): boolean;
var
  i: longint;
begin
  result := false;
  for i := 0 to StList.Count - 1 do
    if St = StList.Strings[i] then
    begin
      result := true;
      break
    end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListCont(Edit1.Text);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
StList := TStringList.Create;
StList.Add('abcd');
end;

[Stilet]

Я бы сходил сюда:

if pos(Edit1.Text,StList.Text)<>0 then Есть такой текст.

ИМХО так короче идтить

[Claster]

Сообщение от Stilet

Я бы сходил сюда:

if pos(Edit1.Text,StList.Text)<>0 then Есть такой текст.

ИМХО так короче идтить

а что за Pos скажите пожалуйста, буду очень благодарен если скинете примерчик

[Claster]

Все разобрался спасибочки

[Stilet]

а что за Pos

Ну как-бы самая найстандартнейшая функция найкласичнейшего Паскаля