Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

2. 5 Константы-указатели

Такие константы содержат адрес в памяти переменной или подпрограммы.
При их объявлении констант нужно следить за тем, чтобы адрес, на который она указывает, использовался. Примеры:

Константа содержит адрес переменной:

const PI: ^Integer = @I;

Константа содержит адрес подпрограммы:

const PF: Pointer = @MyFunction;

Вы можете объявить константу типа PChar со строчным значением, т. к. литералы хранятся в памяти как глобальные константы.

Адреса локальных (размещенных в стеке) и динамических переменных не могут быть помещены в подобную константу.

2. 6 Примеры программ

Ниже приведены примеры программ, использующих типизированные константы. Они написаны в Delphi, но в виде консольного приложения – чтобы не загромождать текст программ описанием форм и других объектов, к которым данная задача не имеет отношения.

Тексты программ-примеров помещены на дискете с курсовой работой в директории EXAMPLES.

Пример 1.

program Example1;
{$APPTYPE CONSOLE}
{Данная программа-пример демонстрирует применение констант-массивов.
Преобразует численный формат даты в обычный, с названием месяца} uses
SysUtils;

const month:array[1..12] of string[20]=('January','February','March','April','May',
'June','July','August','September','October','November', 'December'); var d:string[10]; s:string[30]; s1:string[3]; begin write('Enter date (dd:mm:yyyy): '); readln(d); s:=''; if copy(d,1,1)'1' then begin if copy(d,2,1)='1' then s1:='`st' else if copy(d,2,1)='2' then s1:='`nd' else if copy(d,2,1)='3' then s1:='`rd' end else s1:='`th'; s:=copy(d,1,2)+s1+' of '+month[strtoint(copy(d,4,2))]+' ' +copy(d,7,4); writeln(s); readln end.

Пример 2.

unit Example2frm;

{Этот пример показывает,как применяются константы-записи. Здесь строится многоугольник (с применением метода Polyline объекта Canvas),а координаты вершин многоугольника содержатся в массиве констант-записей.}

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)

Button1: TButton; procedure Button1Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var
Form1: TForm1;
PolyLines:array[1..4] of tpoint=((x:170;y:20),(x:320;y:320),(x:20;y:320),
(x:170;y:20));

implementation

Рекомендуем скачать другие рефераты по теме: охрана труда реферат, шпоры по уголовному.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата