Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Поиск в тектовом файле

Автор: Berliner 3.5.2006, 18:47

Здраствуйте подскажите примеры плиз как искать информацию в текстовых файлах.
Например строку tt

Чем вобще лучше пользоватьтся для поиcка по текстовому файлу? Подскажите примеры пожалуста

Автор: _hunter 3.5.2006, 18:52

http://www.rsdn.ru/article/alg/textsearch.xml
http://docs.com.ru/algoritm_3.php

Автор: Guedda 3.5.2006, 18:59

Есть готовый компонент на вкладке Dialogs... Называется TFindDialog!

Автор: Berliner 3.5.2006, 19:01

Цитата

Есть готовый компонент на вкладке Dialogs... Называется TFindDialog!

Спасиб. Так он вроде как типа визульный "для крутости", а внутри код ручками прописывать.

Автор: Guedda 3.5.2006, 19:28

Ща...

Код


procedure TForm1.btnFindClick(Sender : TObject);
begin
  FindDialog1.Execute;
end;

procedure TForm1.FindDialog1Find(Sender : TObject);
var
  i : Integer;
begin
  i := pos(FindDialog1.FindText, Memo1.Text);
  if i <> 0 then begin
    Memo1.HideSelection := false;
    Memo1.SelStart := i - 1;
    Memo1.SelLength := length(FindDialog1.FindText);
  end else ShowMessage('Строка не найдена!');
end;

Писал без Дельфей, так что может не работать...