Hi, I have two questions about PChar.

Why Reallocmem function does not work with PChar?
How to increase the size of PChar without using Strings unit?

Thanks.

{$codepage utf8}
Var a:Pchar;
    i:byte;
Begin
ReturnNilIfGrowHeapFails:=true;
a:='xxxxxxxxx';
for i:=0 to 9 do Writeln('[',i,']',a[i]);
Writeln('-------');
Reallocmem(a,20);  //ko
End.

Reallocate re-allocates memory on the heap.
A string constant is not on the heap.

Mattias

In addition to what Mattias has said,
the following works pretty well:

Program StrTest;
Var a:Pchar;
Begin
a:=PChar(nil);
Reallocmem(a,20);  //ko
a[0] := 'A';
a[1] := 'n';
a[2] := 't';
a[3] := Chr(0);
WriteLn('Done: ', a);
End.

Anton