Показать сообщение отдельно
  #1  
Старый 12.09.2009, 08:20
nisolmer nisolmer вне форума
Прохожий
 
Регистрация: 10.09.2009
Сообщения: 11
Репутация: 10
По умолчанию Поиск по txt

Приветствую всех!
Помогите пожалуйста разобраться с поиском.
Нужно чтобы в файле находил нужную строку например по фамилии и выводил результат например в ShowMassage.
написал такое но почемуто не работает:
Код:
procedure TForm3.Button2Click(Sender: TObject);
var  F:TextFile;
  n2: Integer;
begin
 AssignFile(F,'memo.exe');
 Reset(F);
  while not Eof(f) do
  begin
 readln(f,n2);
 ShowMessage(IntToStr(n2));
 end;
 CloseFile(f);
 end;

как сделать чтобы он смотрел в Edit2 и искал в текстовом файле по этому значению?
Ответить с цитированием