Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.05.2009, 23:02   #1
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию поиск файле

Здравствуйте специалисты!
Подскажите пожалуйста, как по нажатую на кнопку он мне искал в папке (напрример название "архив"), там 100 *.txt файлов.
Мне нужно, чтобы из 100 *.txt найти строку (например "help")
и вывело в "Memo".
Название "*.txt help" и сохранила в "rezultat.txt"

Заранее благодарен
foxes вне форума Ответить с цитированием
Старый 30.05.2009, 23:26   #2
Disel
Форумчанин
 
Аватар для Disel
 
Регистрация: 08.01.2009
Сообщений: 180
По умолчанию

Код:
if findfirst(ExtractFilePath(paramstr(0))+'data\*.txt,faanyfile,searchrec)=0 then
 repeat
  form1.Listbox1.Items.Add(searchrec.Name);
 until (FindNext(SearchRec)<>0); 
  findclose(searchrec);
Ищет файлы txt в текущей папке где лежит программа и выводит имя файлов в ListBox
"Все что натыкано на клаве, ведет тебя к погибели иль славе"
Если помог нажми на весы
Disel вне форума Ответить с цитированием
Старый 31.05.2009, 00:06   #3
Vito89
Пользователь
 
Аватар для Vito89
 
Регистрация: 27.05.2009
Сообщений: 29
По умолчанию

строку нужно искать иль названиє файла?
Vito89 вне форума Ответить с цитированием
Старый 31.05.2009, 00:08   #4
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
По умолчанию

найти строку (например "help")
foxes вне форума Ответить с цитированием
Старый 01.06.2009, 15:40   #5
foxes
Пользователь
 
Регистрация: 14.11.2008
Сообщений: 94
Восклицание

Цитата:
Сообщение от Disel Посмотреть сообщение
Код:
if findfirst(ExtractFilePath(paramstr(0))+'data\*.txt,faanyfile,searchrec)=0 then
 repeat
  form1.Listbox1.Items.Add(searchrec.Name);
 until (FindNext(SearchRec)<>0); 
  findclose(searchrec);
Ищет файлы txt в текущей папке где лежит программа и выводит имя файлов в ListBox
это немного нето что мне нужно
Спасибо за ответ

ПОМОГИТЕ ПЛИЗ

Последний раз редактировалось foxes; 01.06.2009 в 16:11.
foxes вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск в файле hen Общие вопросы C/C++ 0 11.04.2009 22:34
Поиск в файле hen Помощь студентам 1 11.04.2009 21:28
Поиск в файле Zandrey Microsoft Office Excel 8 05.09.2008 12:23
поиск в файле Elm0 Паскаль, Turbo Pascal, PascalABC.NET 14 07.06.2008 22:41
Поиск в файле asale Microsoft Office Excel 1 15.05.2007 23:33