Текущий архив: 2008.07.13;
Скачать: CL | DM;

Вниз

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

← →
Муслик   (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]

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

---

← →
TForumHelp ©   (2008-06-16 16:56) [9]

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

---

← →
Рамиль ©   (2008-06-16 16:58) [10]


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;


---

← →
Dennis I. Komarov ©   (2008-06-16 16:59) [11]

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

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

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2008.07.13;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.02 c