Delphi 将string 转为 Array of AnsiChar

本文整理自网络，侵删。

 
Delphi 将string 转为 Array of AnsiChar的简单方法如下：

procedure TMainForm.BitBtn7Click(Sender: TObject);  
var  
 Str:string;  
 SN: Array [0..7] of AnsiChar;  
 PC:PChar;  
 I:Integer;  
begin  
  Str := '66778899';  
  PC :=PChar(Str);  
  for I := 0 to Length(Str) - 1 do  
  begin  
    SN[I] := AnsiChar(PC[I]);  
  end;  
end;  
即先将string转为PChar，再通过循环将PChar转为Array of AnsiChar。
或者如下：

procedure TMainForm.BitBtn7Click(Sender: TObject);  
var  
 Str:string;  
 SN: Array [0..7] of AnsiChar;  
 I:Integer;  
begin  
  Str := '66778899';  
  for I := 0 to Length(Str) - 1 do  
  begin  
    SN[I] := AnsiChar(Str[I+1]);  
  end;  
end;  
因为string是从下标1开始的。
 

相关阅读 >>

Delphi filestream

Delphi打开网址链接的四种方法

Delphi 从indy9升级到indy10时idtcpserver的变化

Delphi 10.3 控件遮挡 webbrowser

Delphi decodeutf8str解决系统自带utf8解码缺陷

Delphi 利用tidencodermime tiddecodermime 组件字符串加密解密

Delphi通过ip或机器名获取局域网mac地址

Delphi判断线程是否正在运行

Delphi中使用flash控件

Delphi加载驱动的代码演示

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 将string 转为 Array of AnsiChar