Поиск слова в файле

[virtuhay266]

Мне по заданию нужно искать слово в файле, я воспользовался функцией POS, но при тестировании обнаружилось, что я не учел, что функция не найдет слово, если в нем будут символы в разных регистрах! Получается, что слова одинаковые, а набор символов разный.
Что мне делать?
вот моя функция

procedure TForm1.Button1Click(Sender: TObject);
var
  j:integer;
  s:ansistring;
  s1,s2:ansistring;
  f:textfile;
begin
  if pos(' ',edit1.Text)=0
    then
      if length(edit1.Text)<>0
        then
          begin
            s2:='Строки начинаюшиеся со слова '+edit1.Text;
            label3.Caption:=s2;
            s1:=edit1.Text;
            j:=0;
            AssignFile(F,OpenDialog1.FileName);
            reset(f);
            while not(eof(f)) do
            begin
              j:=j+1;
              readln(f,s);
              if (pos(s1,s)=1)and((s[length(s1)+1]=' ')or(s[length(s1)+1]=s1[length(s1)+1]))
                then
                  label3.Caption:=label3.Caption+' '+inttostr(j);
            end;
            CloseFile(f);
            if s2=label3.Caption
              then
                label3.Caption:='В файле не строк начинающихся со слова '+edit1.Text;

          end
        else showmessage('Введите слово для поиска')
    else  showmessage('Слово не должно содержать пробелов')
end;

[Stilet]

 if (pos(AnsiUpperCase(s1),AnsiUpperCase(s))=1)...

[VaBank]

AnsiUpperCase - приводит все символы к верхнему регистру. Кстати данный оператор работает по-моему только с кириллицей. Для латинского алфавита надо применить просто UpperCase

[mihali4]

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

AnsiUpperCase - приводит все символы к верхнему регистру. Кстати данный оператор работает по-моему только с кириллицей. Для латинского алфавита надо применить просто UpperCase

Вы немного перемудрили. UpperCase работает с латинской частью кодовой таблицы, а AnsiUpperCase - со всей кодовой таблицей.
Так что никакого криминала не будет, если вы станете использовать только AnsiUpperCase...