Сохранение текстовой информации страницы 1. Выделите фрагмент текста, который хотите сохранить. 2. Щелкните правой кнопкой мыши по выделенному фрагменту и в открывшемся контекстном меню выберите строку Копировать. Выделенный текст попадет в буфер обмена. 3. Откройте любой текстовый редактор, например Word, создайте новый файл и вставьте содержимое буфера обмена по команде Правка - Вставить. Что дальше делать с файлом, решайте сами.
Сохранение картинки Щелкните правой кнопкой мыши по понравившейся картинке. В открывшемся контекстном меню выберите строку Сохранить рисунок как. Далее - как всегда: указываете имя файла и выбираете папку, в которой следует сохранить файл с изображением.
Сохранение всей страницы целиком 1. Выполните команду Файл - Сохранить как файл. 2. В открывшемся окне в поле Тип файла выберите вариант, например HTML-файл с изображениями или веб-страница полностью.

3. Как всегда, задайте имя файла и выберите папку, в которой она будет храниться. Теперь вы в любой момент сможете посмотреть содержимое сохраненной странички, не подключаясь к Интернету.
Сохранение фрагмента страницы 1. Выделите фрагмент страницы, включая не только текст, но и изображения. 2. Щелкните правой кнопкой мыши по выделенному фрагменту и в открывшемся контекстном меню выберите строку Копировать. Выделенный текст попадет в буфер обмена. 3. Откройте текстовый редактор, создайте новый файл и вставьте содержимое буфера обмена по команде Правка - Вставить.
Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2). Сделать это можно так: while not eof(fr) and (kol=0) do begin read(fr, Marshrut); if (Marshrut.NK.N <> '11') then write(fr2,Marshrut) else begin inc(kol); y:=Marshrut; end; end; if not eof(fr) then begin read(fr, Marshrut); write(fr2,Marshrut); end; if (kol=1) then write(fr2,y); Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).
Попробуйте ещё вот такой вариант: (здесь k1 и k2 - целые, а y - типа ) if (Marshrut.NK.N = '11') then begin writeln('... '); inc(kol); y:=Marshrut; k1:=FilePos(fr)-1; k2:=FilePos(fr); if not eof(fr) then begin read(fr, Marshrut); seek (fr, k1); write(fr, Marshrut); seek (fr, k2); write (fr, y); end;
1. Выделите фрагмент текста, который хотите сохранить.
2. Щелкните правой кнопкой мыши по выделенному фрагменту и в открывшемся контекстном меню выберите строку Копировать. Выделенный текст
попадет в буфер обмена.
3. Откройте любой текстовый редактор, например Word, создайте новый файл и вставьте содержимое буфера обмена по команде Правка - Вставить.
Что дальше делать с файлом, решайте сами.
Сохранение картинки
Щелкните правой кнопкой мыши по понравившейся картинке. В открывшемся контекстном меню выберите строку Сохранить рисунок как. Далее - как всегда: указываете имя файла и выбираете папку, в которой следует сохранить файл с изображением.
Сохранение всей страницы целиком
1. Выполните команду Файл - Сохранить как файл.
2. В открывшемся окне в поле Тип файла выберите вариант, например HTML-файл с изображениями или веб-страница полностью.

3. Как всегда, задайте имя файла и выберите папку, в которой она будет храниться.
Теперь вы в любой момент сможете посмотреть содержимое сохраненной странички, не подключаясь к Интернету.
Сохранение фрагмента страницы
1. Выделите фрагмент страницы, включая не только текст, но и изображения.
2. Щелкните правой кнопкой мыши по выделенному фрагменту и в открывшемся контекстном меню выберите строку Копировать. Выделенный текст попадет в буфер обмена.
3. Откройте текстовый редактор, создайте новый файл и вставьте содержимое буфера обмена по команде Правка - Вставить.
Успешной Вам работы
Сделать это можно так:
while not eof(fr) and (kol=0) do
begin
read(fr, Marshrut);
if (Marshrut.NK.N <> '11')
then write(fr2,Marshrut)
else begin inc(kol); y:=Marshrut; end;
end;
if not eof(fr) then
begin
read(fr, Marshrut);
write(fr2,Marshrut);
end;
if (kol=1) then write(fr2,y);
Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).
Попробуйте ещё вот такой вариант:
(здесь k1 и k2 - целые, а y - типа )
if (Marshrut.NK.N = '11') then
begin
writeln('... ');
inc(kol);
y:=Marshrut;
k1:=FilePos(fr)-1;
k2:=FilePos(fr);
if not eof(fr) then
begin
read(fr, Marshrut);
seek (fr, k1);
write(fr, Marshrut);
seek (fr, k2);
write (fr, y);
end;
end;