Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Поиск в тектовом файле, Delphi 
:(
    Опции темы
Berliner
Дата 3.5.2006, 18:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

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

Чем вобще лучше пользоватьтся для поиcка по текстовому файлу? Подскажите примеры пожалуста 
PM   Вверх
_hunter
Дата 3.5.2006, 18:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
http://www.rsdn.ru/article/alg/textsearch.xml
http://docs.com.ru/algoritm_3.php 


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Guedda
Дата 3.5.2006, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Есть готовый компонент на вкладке Dialogs... Называется TFindDialog! 


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Berliner
Дата 3.5.2006, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2
Цитата

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

Спасиб. Так он вроде как типа визульный "для крутости", а внутри код ручками прописывать. 
PM   Вверх
Guedda
Дата 3.5.2006, 19:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Ща...
Код

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;

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


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0602 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.