Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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
8-1181560776
hahol_64_rus
2007-06-11 15:19
2008.07.13
оболочки


15-1211838002
Kerk
2008-05-27 01:40
2008.07.13
Таможня, так ее...


15-1211903807
Randew
2008-05-27 19:56
2008.07.13
Почему не запускаются программы


2-1213439467
WebSQLNeederr
2008-06-14 14:31
2008.07.13
Как отключить яваскрипт в TWebbrowser ?


2-1213242326
Toropov
2008-06-12 07:45
2008.07.13
Как организовать помощь (Help) в своей программе?