String to PAnsiChar

Kode 

procedure button1click;
var A:string;
      B:PAnsiChar;
begin
A:='hejsa';
B:=Pchar(A);  //her bruges Pchar
end;

Men du kan bruge funktionen Pchar.
Altså skrive:

Kode 

procedure button1click;
var A:string;
      B:PAnsiChar;
begin
A:='hejsa';
B:=Pchar(A);  //her bruges Pchar
end;

T dér