type

   TInfo = record

     Size,

     Len: integer;

     ss:  string[20];

   end;

   Arr = array[1..10] of word;

 

var

   PInteger: ^Integer; { указатель на тип Integer }

   PInfo:    ^TInfo;   { указатель на тип TInfo}

   PA:       ^Arr;     { указатель на тип Arr}

   P:        Pointer;

   Sz,i:     word;

 

begin

 

     writeln;

     New (PInteger); { выделение памяти под указатель на тип Integer }

      PInteger^ := 123; { значению по адресу PInteger зададим значение }

      writeln ('Value = ', PInteger^);

     Dispose (PInteger); { освобождение зарезервированной памяти }

 

 

     New (PA); { выделение памяти под указатель на тип Arr }

      for i := 1 to 10 do PA^[i] := i * 2 - 1; { значениям массива по адресу PA зададим значения }

      for i := 1 to 10 do write (PA^[i] : 4); { выведем элементы массива по адресу PA }

     Dispose (PA); { освобождение зарезервированной памяти }

 

     New (PInfo); { выделение памяти под указатель на тип TInfo}

      with PInfo^ do { заносим данные в запись по адресу PInfo }

      begin

          writeln;

          { вводим значения переменных в записи }

          write ('Size: '); readln (Size);

          write ('Length: '); readln (Len);

          write ('String: '); readln (ss);

 

          writeln (Size:6, Len:6, ss:20); { выводим их значения }

      end;

     Dispose (PInfo); { освобождение зарезервированной памяти после использования записи }

 

end.

var

     Digits: word;

 

procedure AnalizeBlock (Buf: pointer; Sz: word);

type

     ByteArr = Array [1..MaxInt] of char;

     PByteArr = ^ByteArr;

 

var

     i: word;

     P: PByteArr;

 

begin

     P := PByteArr (Buf);

     for i := 0 to Sz - 1 do

     begin

          if P^[i] in ['0'..'9'] then

            inc (Digits);

     end;

end;

 

var

   Buffer: Pointer;

   F:      file;

   Size,

   Count:  word;

 

begin

     writeln;

 

     Assign (F, 'test.dat');

     {$I-}

     Reset (F, 1);

     {$I+}

     if IOresult <> 0 then

          Halt (-1);

 

     Digits := 0;

     Size   := 4096;

 

     GetMem (Buffer, Size);

     if Buffer <> Nil then

     begin

          while Not EOF (F) do

          begin

               BlockRead (F, Buffer^, Size, Count);

               AnalizeBlock (Buffer, Size);

          end;

          FreeMem (Buffer, Size);

     end;

 

     Close (F);

 

     writeln ('File contains ', Digits, ' digits.');

end.

Var

  K: Integer;

  P: Pointer;

.....

P:= Addr(K); { Присвоить адрес переменной K }

.....

Var

Ptr :^integer;

.......

New(Ptr);

Var

Ptr:Pointer;

..........

GetMem(Ptr,50);

Var sameVar: byte;

  K:word;

..........

K=SizeOf(sameVar); {k=1}

..........

Var

I: ^Integer;

R: ^Real;

Begin

New( I );

New( R );

I^:=200;

R^:=3.1456;

Writeln(I^); Writeln(R^); {На экран будут выведены значения 200 и 3.1456}

End.

Var

Ptr :^integer;

............

new(ptr);

............

dispose(ptr);

Var

ptr :Pointer;

............

GetMem(ptr,67); ............

FreeMem(ptr,67);