Текст из файла

← →
Муслик (2008-06-16 16:10) [0]

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

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 16:13) [1]

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

← →
Муслик (2008-06-16 16:15) [2]

Оригинально

← →
Поросенок Винни-Пух © (2008-06-16 16:16) [3]

Банально

← →
Муслик (2008-06-16 16:17) [4]

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

← →
Поросенок Винни-Пух © (2008-06-16 16:19) [5]

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

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

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

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

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

← →
Муслик (2008-06-16 16:55) [8]

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

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

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;

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

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

← →
Муслик (2008-06-16 17:01) [12]

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

Текст из файла Найти похожие ветки