Page 21 - 6263

значення полів
end;

procedure testClass; // приклади роботи з об'єктами класу
begin
line1:=Line.Create(0,0,1,1); // створити об'єкт шляхом
виклику конструктора
line1.len:=10; // присвоїти значення властивості (див.
метод setLen)
writeln('x2=', line1.x2, ' y2=', line1.y2); // вивести
значення полів
end;

procedure testFile; // приклад роботи з файлом
begin
testRecord; // створити запис
assign(file1, 'myfile.dat'); // пов'язати файлову змінну з
файлом
rewrite(file1); // відкрити файл для запису
write(file1,p); // записати у файл запис p
close(file1); // закрити файл
reset(file1); // відкрити файл для читання
read(file1,p); // прочитати з файлу запис p
write(eof(file1)); // чи досягнуто кінця файлу?
end;

procedure testTextFile; // приклад роботи з текстовим
файлом
begin
assign(file2, 'myfile.txt'); // пов'язати файлову змінну з
файлом
rewrite(file2); // відкрити файл для запису
writeln(file2,'Hello world!'); // записати у файл рядок
close(file2); // закрити файл

21