Оператор присоединения With . . Do.

Для того чтобы облегчить доступ к компонентам записи очень часто используют оператор присоединения With .  . Do.

 Использование оператора With . . Do.

1. program zapisi4;
2. uses crt;
3. type opisanie=record
4. marka: string[45];
5. color: string[8];
6. god_vip: integer;
7. probeg: real;
8. end;
9. var auto: opisanie;
10. begin
11. clrscr;
12. with auto do
13. begin
14. writeln ('Введите описание автомобиля ');
15. writeln ('Введите марку автомобиля');
16. readln (marka);
17. writeln ('Введите цвет автомобиля');
18. readln (color);
19. writeln ('Введите год выпуска автомобиля');
20. readln(god_vip);
21. writeln ('Введите пробег автомобиля');
22. readln(auto.probeg);
23. writeln ('Все данные введены');
24. writeln ;
25. writeln (' Марка автомобиля: ', marka);
26. writeln(' Цвет автомобиля: ', color);
27. writeln(' Год выпуска автомобиля: ', god_vip);
28. writeln(' Пробег автомобиля : ', probeg:6:0);
29. end;
30. readln
31. end.

Возьмем в качестве примера код первой программы и вставим в него оператор With. . Do (строка №12). Записываем служебное With, далее указываем имя переменной, которая связана с типом Запись, затем служебное слово Do. После этого все операторы (строка №14 - №28) заключаем в операторные скобки Begin..End. Теперь для доступа к компоненту записи нам не нужно указывать имя переменной и имя компонента, достаточно указать лишь имя компонента.

Использование оператора присоединения With..Do зависит от предпочтения программиста. На выполнения самой программы он никак не влияет.

Предыдущая статья : Вложенные записи.

Оглавление : Уроки Паскаль. Записи.

Следующая статья : Использование массивов записей.