String 을 PAnsiChar 변환

String 을 PAnsiChar 변환 

 

function StringToPAnsiChar(stringVar : string) : PAnsiChar;

Var

  AnsString : AnsiString;

  InternalError : Boolean;

begin

  InternalError := false;

  Result := '';

  try

    if stringVar <> '' Then

    begin

      AnsString := AnsiString(StringVar);

      Result := PAnsiChar(PAnsiString(AnsString));

    end;

    Except

      InternalError := true;

    end;

    if InternalError or (String(Result) <> stringVar) then

    begin

      Raise Exception.Create('Conversion from string to PAnsiChar failed!');

    end;

end;