Тема. Файловая система.
Создать текстовый файл F. Удалить из файла все нечетные строки.
Для начала создадим текстовый файл:
Assignfile(f,'1.txt');
Rewrite(f);
Заполним файл строками пока пользователь не отменит ввод:
while x<>'n' do
begin
Writeln('Vvedite stroky, dly otmenu najmite - n');
Readln(x);
if x<>'n' then Writeln(f,x);
end;
Close(f);
Создадим вспомогательный файл f2:
Assignfile(f2,'2.txt');
Rewrite(f2);
Для проверки четности воспользуемся функцией mod:
if (i mod 2) = 0 then
Затем удаляем старый файл и переименовывем новый:
Deletefile('1.txt'); //удаляем старый файл
Renamefile('2.txt','1.txt'); //перименовываем новый
Исходный код программы на Delphi 7:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var f,f2 : textfile;
x :string;
i :integer;
begin
Assignfile(f,'1.txt');
Rewrite(f);
while x<>'n' do
begin
Writeln('Vvedite stroky, dly otmenu najmite - n');
Readln(x);
if x<>'n' then Writeln(f,x);
end;
Close(f);
Reset(f);
Assignfile(f2,'2.txt');
Rewrite(f2);
i:=1;
while not eof(f) do
begin
Readln(f,x);
if (i mod 2) = 0 then //проверяем четная строка или нет
begin
writeln(f2,x); //сохраняем четные строки
end;
inc(i);
end;
close(f);
Close(f2);
Deletefile('1.txt'); //удаляем старый файл
Renamefile('2.txt','1.txt'); //перименовываем невый
end.
Блок схема:
 |
Главная
Каталог файлов
