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 简单的定时程序代码

Delphi一个抓屏的函数

Delphi hash md5

Delphi 去除右边指定字符

Delphi 根据进程名得到进程所在路径

Delphi动态分配指针长度

Delphi使用进行post数据时超时设置

incyear：将一个tdatetime变量加减一定数量的年数

[译]rad studio 10.4 新变化：面向控件的 vcl 样式管理

tmsweb core 组件居中显示

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

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