Delphi测试题——将字符串"10ad200d3" 中的数字合计

最新推荐文章于 2022-06-30 23:51:18 发布

忏魂G

最新推荐文章于 2022-06-30 23:51:18 发布

阅读量203

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： Delphi测试题字符串求和

本文链接：https://blog.youkuaiyun.com/qq_20533367/article/details/87884089

Delphi 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个使用Delphi编程语言处理字符串，提取数字并进行整数转换的示例代码。通过遍历字符串，筛选出所有数字字符并转换为整数，最终计算出所有数字的总和。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
i: Integer;
t1: string;
t2: Integer;
n1: Integer;
s: string;
begin
s := Edit1.Text;
if s = ‘’ then
exit
else
begin

t1 := '';
t2 := 0;
n1 := 1;
for I := 1 to Length(Edit1.Text) do
begin
  if not (s[i] in ['0'..'9', 'a'..'z', 'A'..'Z']) then
  begin
    showmessage('只允许输入数字和字母，请重输！！！');
    Edit1.Text := '';
    Edit1.SetFocus;
    Exit
  end
  else
  begin
    if s[i] in ['0'..'9'] then
    begin
      t1 := t1 + copy(s, n1, 1);
    end
    else
    begin
      if t1 <> '' then
      begin
        t2 := t2 + strtoint(t1);
        t1 := '';
      end;
    end;

    n1 := i + 1;
  end;
end;

if t1 <> '' then
  t2 := t2 + strtoint(t1);

Edit2.Text := IntToStr(t2);

end;
end;

最后得到的结果是213