delphi 字符串转入整型数组

Posted 2023-04-26

var
aa: array[0..5]of integer;

str:string;

有如下字符串：
str:='123456';
将这个字符串中的123456存入到aa这个整型数组中，这句代码怎么弄呀？？谢谢！

参考技术A procedure TForm1.Button1Click(Sender: TObject);
var
aa: array[0..5]of integer;
str:string;
i:Integer;
begin
str:='123456';
for i:=0 to 5 do
begin
aa[i]:= ord(str[i])-ord('0');
end;

end;追问

请教一下：ord(str[i])-ord('0')
为什么还要相减？？你的思路是：用ascii码来搭桥进行转换吗？？

追答

这个肯定的。。必须。。滴 c/c++里就是这么搞滴

追问

aa[i]:= ord(str[i])-ord('0');

程序运行到这一行就出错。是不是还差个ascii码转整型数字的东西呀？？

追答

delphi7 +xp实测没问题

aa[i]:= Integer( ord(str[i])-ord('0') ); 或者加一层类型转换可能更好ord得到的不一定是integer 可能会是 shortint ，请确保 i 没有越界

本回答被提问者和网友采纳

用逗号分隔的字符串转换为逗号分隔的整型数组（前端技巧）

数组可以用一个单一的名称存放很多值，并且还可以通过引用索引号来访问这些值。 创建数组 使用数组文本是创建 JavaScript 数组最简单的方法。

最近在开发非前后端分离的项目，遇到后台数据是一个用逗号分隔的数据，eg：-2,4,10，在JavaScript里用str.split(',')分隔之后，里面的数字都变成了字符,eg:['-2','4','10']，而原本的项目定义的就是整型的，所以要改项目原本的也不好，只能想到通过遍历进行一个一个转型，不过代码不简洁，经过前端同事点拨，使用map(el => +el)，轻松进行转换：

vm.formData.msgStep = msgStep.split(',').map(el => +el);

虽然对于前端开发是一个很容易的技巧，但是后台开发确实不知道，必须不是很专业，所以本博客进行记录

友情链接：前端大佬博客