Delphi 字符串函数 StrPas和StrPCopy - String转Char / Char 转 String
<p><span style="font-size: 16px">Delphi StrPas和StrPCopy - String转Char / Char 转 String</span></p><p><span style="font-size: 16px">函数原型：</span></p>
<p><span style="font-size: 16px"><strong>StrPas</strong></span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">{$IFNDEF NEXTGEN}
function StrPas(const Str: PAnsiChar): AnsiString;
begin
Result := Str;
end;
{$ENDIF !NEXTGEN}
function StrPas(const Str: PWideChar): UnicodeString;
begin
Result := Str;
end;
</span></pre>
</div>
<p><span style="font-size: 16px"> <strong>StrPCopy </strong></span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">{$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;
</span></pre>
</div>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">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 := #0;
end;
</span></pre>
</div>
<p><span style="font-size: 16px"> </span></p>
<p><span style="font-size: 16px">Delphi 使用示例：</span></p>
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;"><span style="font-size: 16px">var
Msgs:array of Char;
Str:string;
begin
StrPCopy(Msgs,Memo1.Text); // j将Memo1.text的值复制到Msgs
Str:=StrPas(Msgs); //将Msgs的值输出为字符串类型
end
</span></pre>
</div>
<p><span style="font-size: 16px"> </span></p>
<p> </p>
<p> </p>
<p> </p>
<p><span style="color: rgba(136, 136, 136, 1)">创建时间：2020.06.04 更新时间：</span></p>
<p> </p>
</div>
<div id="MySignature" role="contentinfo">
博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！<br><br>
来源：https://www.cnblogs.com/guorongtao/p/13041518.html
頁:
[1]