Почему мы не делаем PChar ('*') в Delphi 7?

Question

Я написал этот код и получаю AV в нем.

procedure TForm1.Button1Click(Sender: TObject); 
    Var 
    C : Pchar; 
    s : string; 
begin 
    c:= PChar('*'); 
    s := string(c); // AV here , but code works if i put C:= PChar('**') 
    ShowMessage(c); 
end; 

Я не мог понять, почему. Кто-нибудь знает?

Заранее спасибо.

Answer 1

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

Проблема возникает из разных типов данных.

'*'

является Char, но

'**'

струнный

Это будет прекрасно работать с кодом:

procedure TForm1.Button1Click(Sender: TObject); 
Var 
    C : Pchar; 
    s : string; 
begin 
    c:= PChar(string('*')); 
    s := string(c); // AV here , but code works if i put C:= PChar('**') 
    ShowMessage(c); 
end; 

Answer 2

С односимвольным строковым литералом вы производите тип Char, а не string, поэтому это не указатель. Когда вы отбрасываете его обратно, он по-прежнему не является указателем, несмотря на его объявленный тип, поэтому его нельзя преобразовать в строку.

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

Если опустить тип ввергнуть целиком, ваш код будет работать одинаково хорошо для любой длины строки вы хотите:

// All PChar assignments, no casting 
c := ''; 
c := '*'; 
c := '**'; 

Кроме того, приведение обратно к string ненужно, а также. Вы можете напрямую назначить PChar, и компилятор автоматически выполняет преобразование:

s := c; 

Answer 3

В самом деле,

c:= PChar('*'); 

скомпилирован как

mov [c],$0000002a 

, как если бы оно было написано:

c:= PChar(ord('*')); 

С ord('*')=$2a, оказывается, что '*' характер тип- (NativeInt), то это целое число преобразуется в указатель. Поэтому, когда вы пытаетесь получить доступ к содержимому c, вы получаете доступ к адресу памяти $0000002a, что является недопустимым и вызывает нарушение доступа.

При компиляции:

c:= PChar('**'); 

Он формируется как

mov eax,$00548984 
    mov [c],eax 

В этом случае константа # 0 состава текстовый буфер (а не Delphi string) генерируется компилятором в пределах исполняемого файла, а c - по его адресу.

Тот факт, что PChar('*') не ведет себя одинаково, является одной «оптимизацией» типа char, которая может быть преобразована в целое число.
Но я понимаю, что это может ввести в заблуждение.

Если вы хотите просто указатель на один символ «*», то вы можете написать либо:

c:=PChar('*'#0); 
c:=PChar(string('*')); 

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