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 hex 相关单元

如何将string变量赋值给pchar变量

Delphi 编写键盘记录器

Delphi中frame和form有何区别

Delphi 实现批量文件名修改

Delphi treeview节点展开与折叠

Delphi制作移动文字、图片

Delphi 中英文字符怎么按固定长度截断

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

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