[Pit_Bull]

Добрый день всем! Помогите пожалуйста! Задача состоит в следующем - есть текстовый файл с записью типа:

Понедельник
ывапоптывап ывапывап
ывапывап ывапывап впбджвбап

Вторник
ываг8ышкрыва ывпап
ыывпт ывапорошвап

и так далее по всем дням недели. Необходимо скопировать в другой файл все строки с Понедельника до Вторника или с вторника по среду или... и так далее.
Заранее благодарен!

[v1s2222]

Ну можно попробовать так:

Код:

var
  f: TextFile;
  s: String;
  bufer: String;
begin
  AssignFile(f, 'C:\myFile.txt');
{$I-}
  Reset(f);
  if(IOResult <> 0) then begin
    ShowMessage('Ошибка!!!');
    ReWrite(f);
  end;
{$I+}
  ReadLn(f, S);
  if(LowerCase(S) = LowerCase('Понедельник')) then
    While(not(EOF(F))) do begin
      ReadLn(f, bufer);
      if(LowerCase(bufer) = LowerCase('Вторник')) then Break;
      Memo1.Lines.Add(bufer);
    end;
  CloseFile(f);  

Это маленький пример, чтений текстового файла, в нем читаю по строчно, если найден "Понедельник", то читать до конца файла, пока не найден "Вторник", если "Вторник" найден, то выходить из цикла (ну а все, что находилось между "Понедельником" и "Вторником" записываю в мемо.

[Pit_Bull]

Спасибо большое - работает. Только вот еще вопрос - а как сделать так, чтобы оно искало не строку которая состоит из слова понедельник, а строку, которая содержит подстроку понедельник?

[yanot]

if Pos('понедельник', LowerCase(S)) > 0 then