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

 Показать / Скрыть текст

var 

s: string; 

i: Integer; begin 

s := 'Borland <a href="http://delphicomponent.ru/" title="Delphi" target="_blank">Delphi</a>'; fori := 1 to Length(s)  do Write (s(i)); 

end.

При доступе к символам строки через указатель не нужно ни вызывать функ­цию Length для определения длины строки, ни использовать переменную счетчи­ка для индексирования символов.  

 Доступ к строкам легко получить посредством указателя (листинг 9.5), посколь­ку все типы строковых данных (кромеShortString) ограничены нулем. Строка, хранящаяся в памяти, всегда заканчивается символом #0.

Листинг 9.5. Доступ к строке через указатель  

 Показать / Скрыть текст

program Project1;

$APPTYPE CONSOLE}

uses

SysUtils;

var

s: string;

c: PChar;

begin

s := 'Borland <a href="http://delphicomponent.ru/" title="Delphi" target="_blank">Delphi</a>';

c := Pointer(s); { point to s[1] }

{ display the string }

while c^ <> #0 do

begin

Write(c^);

Inc(c);

end;

Readln; 

end.

 

 При создании нового типа записи обычно создают два типа: тип записи и тип указателя на запись. Обычно имена типа данных указателей начинаются с пропис­ной буквы Р. Синтаксис объявления типа указателя выглядит следующим образом:

Ниже показано объявление записи и указателя на запись:

 Показать / Скрыть текст

type 

ТВоок = record 

Title: string[200]; 

Author: string[40]; 

PageCount:  Integer; end; 

PBook = ^ТВоок;

 

При создании динамической записи, прежде чем можно будет получать доступ к ее элементам, потребуется выполнить ее разыменование. Следующий пример демонстрирует динамическое создание записи и разыменование динамической записи для получения доступа к ее полям.

Листинг 9.6. Динамическое создание записей  

 Показать / Скрыть текст

program Project1;

{$APPTYPE CONSOLE}

uses

SysUtils;

type

TBook = record

Title: string[200];

Author: string[40];

PageCount: Integer;

end;

PBook = ^TBook;

var

Book: PBook;

begin

New(Book);

Book^.Title := 'Roget''s Thesaurus';

Book^.PageCount := 1254;

Dispose(Book); end.