Форум: "Начинающим";
Текущий архив: 2008.07.13;
Скачать: [xml.tar.bz2];
Вниз
Текст из файла Найти похожие ветки
← →
Муслик (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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.006 c
