Показать сообщение отдельно
  #4  
Старый 12.09.2009, 09:45
dissident dissident вне форума
Прохожий
 
Регистрация: 25.07.2007
Сообщения: 8
Репутация: 10
По умолчанию

Если я правильно понял, то требуется узнать номер строки текстового файла, в которой встречается значение, вписанное в Edit2?

можно реализовать это вот так:

Код:
var
  ftext : TStrings;
  I: Integer;
begin
  ftext := TStringList.Create;
  Ftext.LoadFromFile('text.txt');
  for I := 0 to ftext.Count - 1 do
  if pos(Edit2.text,ftext.Strings[i]) > 0 then showmessage(inttostr(i));
end;
Ответить с цитированием