0

Подкиньте пожалуйста пищи для ума по поводу указателей в DELPHI! Нет, я читал конечно мат часть и работать с ними работал(не до конца понимая их природу) но зачем?

type TMyRec = class
  s:string;
  n:integer;
end;

var MyRec: TMyRec;
    PRec: ^TMyRec;    
begin
//Но MyRec сейчас null на какую область памяти может начать ссылаться PRec?
  PRec:=@MyRec;
  PRec^.S:='Строка данных';//С помощью указателя производится изменение строкового поля записи
  PRec^.N:=256;//С помощью указателя производится изменение числового поля записи
end;

Все супер, все замечательно и работает. Но зачем, если следующая запись также замечательно работает?

var MyRec: TMyRec;
begin
  MyRec:=TMyRec.Create;
  MyRec.S:='Строка данных';
  MyRec.N:=256;
end;

В общем у меня куча вопросов по указателям которые я даже сформулировать не могу Буду благодарен любой информации где разъясняется зачем нужны указатели в повседневной жизни

13
  • Главная задача указателей - работа с динамически выделяемой памятью, когда на этапе компиляции вы не знаете сколько именно памяти потребуется программе. 16 мар 2017 в 10:00
  • Потому что делфовый компилятор видит, что PRec - это указатель и он позволяет использовать точку. В с++ так нельзя - там можно сделать перегрузку и поведение может сильно отличаться.
    – KoVadim
    16 мар 2017 в 10:00
  • @ГерманБорисов Вообще ни разу Ваш комментарий не прояснил ситуацию! Чем такая запись не устраивает? MyRec:=TMyRec.Create; Я тоже не знаю сколько памяти понадобится тем не менее выделил ее !
    – JVic
    16 мар 2017 в 10:07
  • @Kromster Пусть будет класс, а какая разница в контексте указателей?
    – JVic
    16 мар 2017 в 10:41
  • 1
    @Victor, посмотрите вот тут пример delphisources.ru/pages/faq/base/dyn_list.html 16 мар 2017 в 11:20

2 ответа 2

3

Остановимся на

//Но MyRec сейчас null

и

Все супер, все замечательно и работает.

Локальная переменная MyRec до присвоения - не nil, а имеет произвольное значение (мусор). Вам просто повезло, так как в следующих строчках Вы пишите в произвольную область памяти, и последствия этого могут быть самые неожиданные.

Помните, в Внезапный Access violation Delphi 10.1 Berlin я изменил Ваш код

try
  Props:=getProps;
  ... 
finally
  Props.Destroy;
end;

вынеся присвоение за try

Props := getProps;
try
  ... 
finally
  Props.Free;
end;

Смысл строчки, присваивающей значение Props вне блока try/finally в том, что в случае исключения внутри getProps, внутрь finally код не попадет, и не будет попытки освободить память, на которую указывает неинициализированная локальная переменная Props.

Другой правильный вариант:

Props := nil;
try
  Props := getProps;
  ... 
finally
  Props.Free;
end;
2

Синоним указателя - ссылка.
Есть память, есть ссылка на память. При передаче TClass в процедурe будет передан все равно указатель (ссылка) на объект, а не сам объект.

При передаче record без указателя в процедурe будет передан весь кусок памяти, а не ссылка, то есть полная структура.

Указатель наследуется из Паскаля еще времён до ООП, то есть когда классов еще не было и в помине. В Паскале нет классов типа TList и чтобы сделать, что то аналогичное надо городить свой огород: TList = record S : string; Next : pointer; prev : pointer; end; PList = ^TList То есть указатели нужны преимущественно для record ну и для совместимости с Pascal

3
  • Так же, указатели часто нужны для примитивных типов (Integer и т.п.)
    – Kromster
    16 мар 2017 в 14:45
  • Не надо главное тут понимать под record исключительно то, что вы пишите в своем коде на delphi. WinApi, да и любой вообще API, чаще всего параметрами функций/методов использует структуры.
    – teran
    16 мар 2017 в 16:57
  • Да тут нечего понимать. Есть просто куски памяти, к которым нужен доступ. Вся специфика в том как происходит обращение к памяти и как данные внутри памяти расположены. 17 мар 2017 в 6:36

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.