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