ShortString 转化成 PChar类型

警告:Win32 API函数需要以Null结尾的字符串,不要把ShortString字符串传递给API函数,因为编译器将报错,长字符串可以传递给Win32 API函数。

下面这个ShortStringAsPChar()函数时在STRUTILS.PAS单元中定义的

Function ShortStringAsPChar(Var S :ShortString):PChar;

{这个函数能是一个字符串以Null结尾,这样就能传递给需要PChar类型参数的WIN32 API函数,如果字符串超过254个字符串,多出的部分将被截掉}

begin

  if Length(S)= High(S) then

    begin

      Dec(S[0]); //如果S太长,就截取一部分;

    end;

  S[Ord(Length(S))+1] := #0; //把Null加到字符串的最后;

  Rsult := @S[1];        //返回PChar化的字符串;

end;

你可能感兴趣的:(String)