овпадают ли первые символы строки

[NieL]

Задача: Сравнить совпадают ли первые символы строки "Item" с введенными пользователем символами строки "S".
Т.е.:

Строка adhftl. Пользователь вводит adh - > : совпадает
Строка adhftl. Пользователь вводит adz - > :не совпадает

Вот код моей функции

  function CompareItems(S, Item: string): Boolean;
  var
    i, L: Integer;
  begin
    Result := True;
    L := Length(S);
    for i := 1 to L do
      if Item[i] <> S[i] then
        Result := False;
  end;

Придется обрабатывать с помощью данной функции пордка 900 000 записей в TStringList, поэтому нуждаюсь в наиболее быстрой функции проверки. Какие есть варианты.

[Dj_smart]

Кажись будет проще:

function CompareItems(S, Item: string): Boolean;
begin
  if pos(s,item)=1 then result:=true else result:=false;
end;

[_Engine_]

to Niel:

Можно упростить и Вашу процедуру
Во-первых нет смысла цикл устраивать по более длинному слову, во вторых, если есть Result = false, тогда нафиг дальше проверять?
Короче, приблизительно так должна выглядеть ваша процедура:

function TForm1.CompareItems(S, Item: string): Boolean;
 var
    i: Integer;
  begin
    Result := True;
    for i := 1 to Length(Item) do
      if Item[i] <> S[i] then
      begin
        Result := False;
        Exit;
      end;
  end;

to Dj_smart:
А вот так еще красивше:

function TForm1.CompareItems(S, Item: string): Boolean;
begin
   Result := pos(s,item) = 1;
end;