Как часть тхт-файла закинуть в мемо?

[Vito89]

Єсть файл прим. NoName.txt надо в мемо скопировать кусок текста которий находитса между наперед известними строками.

Записиваю с тхт і переменную типа TStringList потом в ней надо удалить строки к примеру между 25 и 65. Ууууууууу.

[BaronTreep]

AssignFile(f, "NoName.txt");
Reset(f);
while not eof(f) do begin
   Chr = Read(f);
   if Chr = 'x' then inOK = true;
   if Chr = 'y' then inOK = false;
   if inOK then Str = Str + Chr;
end;

Этот кусок записывает в строку Str текст между СИМВОЛАМИ x и y. Попробуй переделать его, чтобы он искал текст между СТРОКАМИ.

[Vito89]

Сообщение от BaronTreep

AssignFile(f, "NoName.txt");
Reset(f);
while not eof(f) do begin
Chr = Read(f);
if Chr = 'x' then inOK = true;
if Chr = 'y' then inOK = false;
if inOK then Str = Str + Chr;
end;

Этот кусок записывает в строку Str текст между СИМВОЛАМИ x и y. Попробуй переделать его, чтобы он искал текст между СТРОКАМИ.

таким способом я пробовал, но мне надо чтоби сохранялась минимальноє форматированиє т. к. абзац и новая строка

[BaronTreep]

НО! в txt никакого форматирования нет. Абзац это либо табуляция, либо пробелы, новая строка это два символа с кодами 13 и 10.

[DeKot]

Используйте объект TStringList (F).Заносите в него весь текст из файла - F.LoadFromFile().Удаляете ненужные строки до и после сиспользованием цикла - F.Delete(i);Остальное заносите в Memo.