Delphi 字符串函数 StrPas和StrPCopy - String转Char / Char 转 String

冰豆豆

Delphi StrPas和StrPCopy  - String转Char / Char 转 String

函数原型：

StrPas

{$IFNDEF NEXTGEN}
function StrPas(const Str: PAnsiChar): AnsiString;
begin
  Result := Str;
end;
{$ENDIF !NEXTGEN}

function StrPas(const Str: PWideChar): UnicodeString;
begin
  Result := Str;
end;

 StrPCopy 

{$IFNDEF NEXTGEN}
function StrPCopy(Dest: PAnsiChar; const Source: AnsiString): PAnsiChar;
begin
  Result := StrLCopy(Dest, PAnsiChar(Source), Length(Source));
end;
{$ENDIF !NEXTGEN}

function StrPCopy(Dest: PWideChar; const Source: UnicodeString): PWideChar;
begin
  Result := StrLCopy(Dest, PWideChar(Source), Length(Source));
end;

function StrLCopy(Dest: PWideChar; const Source: PWideChar; MaxLen: Cardinal): PWideChar;
var
  Len: Cardinal;
begin
  Result := Dest;
  Len := StrLen(Source);
  if Len > MaxLen then
    Len := MaxLen;
  Move(Source^, Dest^, Len * SizeOf(WideChar));
  Dest[Len] := #0;
end;

　　

Delphi 使用示例：

var
   Msgs:array[0..255] of Char;
   Str:string;
begin
    StrPCopy(Msgs,Memo1.Text);   // j将Memo1.text的值复制到Msgs
    Str:=StrPas(Msgs);   //将Msgs的值输出为字符串类型
end

　　

 

 

 

创建时间：2020.06.04　　更新时间：

 

博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！

来源：https://www.cnblogs.com/guorongtao/p/13041518.html