| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Текст из файла [D7]

Муслик ©   (2008-06-16 16:10:00) 

Скажите пожалуйста вот есть пример показа каждой строки из файла, скажите а как сделать чтоб я мог из всех строк просмотреить определенную строку к примеру по введёному слову или фразе в ней


Var
 f:TextFile;
 st:String;  
begin
AssignFile(f,'ban.txt');
{$I-}
Reset(f);
{$I+}
if IOResult<>0 then
begin
ShowMessage('Not Found');
Exit;
end;
While not EOF(f) do
begin
ReadLn(f,st);
ShowMessage(st);
end;
CloseFile(f);
end;



---

Муслик   (2008-06-16 17:01:00) [1]

Спасибо большое

---

Dennis I. Komarov   (2008-06-16 16:59:00) [2]

> [8] Муслик   (16.06.08 16:55)

1. Определить какая строка будет считаться "нужной"
2. Пройти по всем (или до "нужной) строкам файла и проверить на "нужность"
3. Если "нужность" подтверждена отправить ее в Мемо

---

Рамиль   (2008-06-16 16:58:00) [3]


Var
f:TextFile;
st:String;  
begin
AssignFile(f,'ban.txt');
{$I-}
Reset(f);
{$I+}
if IOResult<>0 then
begin
ShowMessage('Not Found');
Exit;
end;
While not EOF(f) do
begin
ReadLn(f,st);
if pos('слово или фраза', st) > 0 then
 ShowMessage(st);
end;
CloseFile(f);
end;


---

TForumHelp   (2008-06-16 16:56:00) [4]

if pos('фраза', ' ' + st) > 0 then ShowMessage(st);

---

Муслик   (2008-06-16 16:55:00) [5]

помогите пожалуйста из файла вывести нужную строку в мемо

---

Муслик   (2008-06-16 16:21:00) [6]

Очень интересно и как оно будит работать

---

Поросенок Винни-Пух   (2008-06-16 16:21:00) [7]

попробуй и увидишь

---

Поросенок Винни-Пух   (2008-06-16 16:19:00) [8]

это и была помощь

---

Муслик   (2008-06-16 16:17:00) [9]

А с вопросом помочь никак да?

---

Поросенок Винни-Пух   (2008-06-16 16:16:00) [10]

Банально

---

Муслик   (2008-06-16 16:15:00) [11]

Оригинально

---

Поросенок Винни-Пух   (2008-06-16 16:13:00) [12]

иф зен шоумессаддж

---

Наверх