unit Unit1;
interface
uses
SysUtils, RusTrans;
uses
Windows, Messages, Variants, Classes, Graphics, Controls,
Dialogs;
const
FileDir='C:\Users\Надя\Desktop\С.Р.1\1';
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
MyFile:Text; //файловая переменная
FilePath, FileName, Temp:string; //переменные для строк
i, imax: Integer;
label
Exit; //меика выхода
implementation
{$R *.dfm}
begin
writeln(Rus('Введите имя файла'));
readln(FileName);
writeln;
FilePath:=fileDir+FileName; //путь к файлу
AssignFile(MyFile,FilePath); //связь файлом на диске
{$I-} //отключить контроль ошибок
Rewrite(MyFile); //создать новый файл
{$I+}; //включить контроль ошибок
if IOResult=0 //проверить ошибку открытия файла
then writeln (Rus('Спасибо'))
else
begin
writeln(Rus('Ошибка'));
readln;
goto Exit //выход при ошибке
end;
writeln;
imax:=5;
writeln(Rus('Введите '),imax,Rus(' строк'));
for i:=1 to imax do //повторять 5раз
begin
write(Rus('Строка'),i,'=');
readln(Temp); //чтение строки с клавиатуры
writeln(MyFile, Temp); //запись этой строки в файл
end;
CloseFile(MyFile); //закрыть файл
Reset(MyFile); //открыть его для проверки
i:=1;
writeln;
writeln(Rus('Содержимое файла'));
writeln;
while not EOF(MyFile) do //повторять до конца файла
begin
readln(MyFile, Temp); //чтение строки из файла
writeln(Rus('Строка'),i,' = ',Temp); //вывод этой строки на дисплей
i:=i+1;
end;
writeln;
CloseFile(MyFile); //закрыть файл
{$I-} //отключить контроль ошибок
Append(MyFile); //открыть файл для добавления строк
{$I+}; //включить контроль ошибок
if IOResult=0 //проверить ошибку открытия файла
then writeln('OK')
else
begin
writeln(Rus('ошибка'));
readln;
goto Exit //выход при ошибке
end;
writeln;
writeln(Rus('Введите еще'),imax,Rus('строк'));
for i:=imax+1 to imax*2 do //повторять 5 раз
begin
write(Rus('Строка'),i,' = ');
readln(Temp); //чтение строки с клавиатуры
writeln(MyFile,Temp) //запись этой строки в файл
end;
CloseFile(MyFile); //закрыть файл
Reset(MyFile); //открыть его для проверки
i:=1;
writeln;
writeln(Rus('Содержимое файла'));
writeln;
while not EOF(MyFile) do //повторять до конца файла
begin
readln(MyFile,Temp); //чтение строки из файла
writeln(Rus('Строка'),i,' = ',Temp); //вывод этой строки на дисплей
i:=i+1;
end;
writeln;
writeln('OK');
readln;
CloseFile(MyFile); //закрыть файл
Exit:;
end.
Простой
