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

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

函数原型：

StrPas

?

1 2 3 4 5 6 7 8 9 10 11

{$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 

?

1 2 3 4 5 6 7 8 9 10 11

{$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;

?

1 2 3 4 5 6 7 8 9 10 11

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 使用示例：

?

1 2 3 4 5 6 7

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　　更新时间：