Author: William Gerbert

How to convert a String To a PChar and PChar to String

Answer:

1   function ConvertStringToPChar(StringValue: string): PChar;
2   var
3     PCharString: array[0..255] of Char;
4   begin
5     Result := StrPCopy(PCharString, StringValue);
6   end;
7   
8   function ConvertPCharToString(PCharValue: PChar): string;
9   begin
10    Result := StrPas(PCharValue);
11  end;