Question

delphi中怎么输入把一个字符串中字母和数字分离的代码？

界面如图，就是在上面edit1中输入字符串，点击按钮之后把数字和字母放在下面的edit2和edit3中

Answer 1

字符串可以看做字符数组，你就把输入的字符串中的字符逐个的比对ASCII码，再分别放到下面就好了。

追问

代码写出来可好

追答

var
i:Integer;
s1,s2:string;
begin
for i:= 1 to Length(str) do
begin
if str[i] in ['0'..'9'] then //判断数字
s2:= s2 + str[i];
if str[i] in ['A'..'z'] then //判断字母
s1 := s1 +str[i];
end;
ShowMessage(s1 +' '+s2);
end;

追问

不对啊 看我上面图片了么 要达到那个效果的说 str定义是什么都没有啊

追答

str 就是你输入的字符串，s1输出到右边label,s2输出到左边label,整体思路都写出来了，旁枝末节的东西你应该自己学习写。

追问

嗯 那把输入的字符串放到str里面怎么弄 str:=edit1.text; 好像不行的样子

追答

你不会没定义str吧。。。要不你干脆把所有str用edit1.text替换得了。
另外判断字母那里改成这样
if (str[i] in ['A'..'Z']) or (str[i] in ['a'..'z']) then //判断字母
因为好像有个别标点符号的ascii码插在大写字母与小写字母之间。