Загадочный тип PChar, критика

[OCTAGRAM]

Сабж: http://programmersclub.ru/typepchar/

Я писал ответ давно, но он по–прежнему awaiting moderation, так что скопирую его для тех, кто его не видит:
__________________
Много дезинформации. Хоть заново пиши.

Во–первых, нужно отличать турбо паскалевские строки от делфийских. В Turbo Pascal символьные данные хранятся целиком по месту объявления переменной. В Delphi строки обычно хранятся в динамической памяти, а в строковых переменных только указатели. Если использовать тип String[число], то для переменных этого типа включается старый способ хранения, доставшийся в наследство от Turbo Pascal. Также есть тип ShortString, эквивалентный String[255] в Delphi или String в Turbo Pascal. И ещё есть директива компилятора, включающая старый способ хранения строк.

Турбо Паскалескими строками имеет смысл заморачиваться только олимпиадникам. Один раз, помню, переключил строки на Паскалевские, и решение прошло по времени. Стек быстрее кучи.

Учитывая внезапно обнаружившуюся информацию, правим косяки:

Обращаться к 55 символу переменной str2 уже нельзя, но физически в памяти он существует.

Неправда, STR2 занимает 21 байт (1 байт длины + 20 байт под максимально длинную строку). Нету там 55го символа.

Не знаю почему, но вместо двоек выводится не пойми что. Мистика!!!

Жесть.

Отвечаю: потому что Str — это строка, размещённая в куче. На месте самой переменной хранится просто указатель на символьные данные. @STR, таким образом, указатель на указатель на символьные данные, в то время как ожидается указатель на символьные данные.

Строки нужно приводить к PChar, без всяких собак. Собаки — только для array[] of Char. Если какой–то функции нужно передать аргумент типа PChar и эта строка вычисляется выражением, например,

‘Осталось ждать минут: ‘ + IntToStr(EstimatedMin)

…то в этом случае нужно присвоить это значение временной переменной типа string, а уже потом вызывать функцию WinAPI. Всё это нужно затем, чтобы сохранялось владение памятью, в которой размещёны символьные данные. Наверное, если тайпкастить результат строкового выражения к PChar, Delphi мог бы не высвобождать строку до окончания выполнения функции, но я сомневаюсь в том, что это реализовано. Может получиться висячий указатель, так что лучше использовать временную строковую переменную.
__________________
Желательно всё же что–нибудь сделать с этой статьёй. Нельзя, чтобы статью с такой кучей ляпов кто–нибудь всерьёз пытался использовать как достоверный источник.

[rpy3uH]

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

[OCTAGRAM]

Черновик здесь: http://octagram.ya.ru/replies.xml?item_no=64

Есть спорные моменты, в частности, можно ли писать так. Нужно посмотреть, какой ассемблерный код в старых Делфях генерируется для процедуры:

procedure NotifyRemain(mins : Integer);
begin
   MessageBox(0, PChar('Осталось ' + IntToStr(mins) + ' мин'), 'Внимание!', MB_OK);
end;

http://programmersforum.ru/showthread.php?t=68646

[Serge_Bliznykov]

не совсем понял, что это даст..
но Delphi 5 достаточно старая?


(в принципе есть и самая древняя Delphi генерящая код для Win32 - это Дельфи3, можно достать из архива)

[OCTAGRAM]

Прикольно. Наглядно видно, что освобождение строки (LStrArrayClr) происходит после вызова MessageBox, а не до. Всё работает так, как хотелось бы.