Casting литералов в PChar/PAnsiChar

У меня действительно глупый вопрос ... Почему этот код:Casting литералов в PChar/PAnsiChar

PChar('x');

причина ошибка "Нарушение прав доступа"? Оптимизация компилятора?

Пример:

var s: String; 
... 
s := StrPas(PAnsiChar('x'));

Это приводит к AV в Delphi 5/Delphi XE

Или этот:

Windows.MessageBox(0, PChar('x'), PChar('y'), 0);

Это приводит к AV в Delphi 5, но не в Delphi XE В XE есть пустой MessageBox

Пример консоли:

program Project1; 
{$APPTYPE CONSOLE} 
uses 
    SysUtils, Windows; 
var s: String; 
begin 
    s := StrPas(PChar('xxx')); // EAccessViolation here 
end.

источник

2015-02-12 Mad Scientist

Другой действительно глупый вопрос: какую версию Delphi вы используете? И как это можно воспроизвести? Потому что только эта линия не будет компилироваться. –

Исправленных + примеры мне нужно изменить строку переменных литералов для тестирования, и я был немного удивлён ... @David Хеффернано Это точка XD –

Интересно. Является ли '' х '' символом символа? И вот только один символ? Возможно, это то, чего мне не хватает. –

StrPas(PAnsiChar('x'));

Я утверждаю, что 'x' трактуется как символ буквального, а не строковый литерал. И поэтому приведение недействительно. Если это так, то это будет работать так, как вы ожидаете.

StrPas('x');

из-за неявного преобразования. Или

StrPas(PAnsiChar(AnsiString('x')));

благодаря явному преобразованию.

Я думаю, что первое, вероятно, будет предпочтительным. Литералы не нуждаются в литье в нуль-концевые типы указателей. Компилятор может исправить правильный код без приведения. И броски всегда подвергаются риску подавления ошибки.

источник

2015-02-12 07:17:01

Ooook ... Вы правы. Спасибо за объяснение! :) Я добавил литерал для тестирования фрагмента кода, а затем меня немного задержали ... –

Delphi здесь немного хромает. Все это связано с использованием одного и того же разделителя для строк и символов. –

Casting литералов в PChar/PAnsiChar

ответ

Смежные вопросы