Строки

[SHtirlic1]

Доброе время суток
Вопрос такой
в программе юзер вводит слово это слово ищеться в файле если не находит прекращает процедуру если есть выполняет дальше. В файле слово должно искаться после разделителя. Если находит слово то до разделителя цифры передаються дальше
вот код

Function ToCode(S:String):String;
var
 l:TStringList;
 i:Integer;
 st:String;
begin

 ShowMessage('не найдено');
 l:=TStringList.Create;
 try
  l.LoadFromFile(ExtractFilePath(Application.ExeName)+'текст.txt');
  for i:=0 to l.Count-1 do begin
   st:=copy(l[i],pos(';',l[i])+1, l[i]);
   if AnsiUpperCase(st)=AnsiUpperCase(s) then begin
    result:=copy(l[i],0,pos(';',l[i])-1)
    exit;
   end;
  end;
 finally
  l.Free;
 end;
end;

Ругаеться на "i"

[Человек_Борща]

Как ругается?

p.S. телепатов нет...

[SHtirlic1]

[Error] Unit1.pas(47): Incompatible types

[chertovich]

Несовместимые типы, у тебя должна быть выделена красным цветом строка где ошибка.

[phomm]

скорее всего ругается на st:=copy(l[i],pos(';',l[i])+1, l[i]); ибо функция копи принимает строку и 2 инта, а у тебя последний парам - строка l[i] , по идее надо количество символов какое-то ставить для копирования, ну и во 2й copy наверное косяк, гляди сам, мысль я тебе дал

[Johnson]

Хм... А не посмотреть ли Вам в сторону IniFiles юнита?.. По моему мнению, он идеально Вам подходит.

[SHtirlic1]

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

по идее надо количество символов какое-то ставить для копирования

Дело в том что длина строки неизвестна она меняеться

[chertovich]

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

Дело в том что длина строки неизвестна она меняеться

Пробуй искать при помощи Pos, PosEx