a814123
814123
采纳率95.4%
2017-06-18 09:53 阅读 1.3k
已采纳

delphi Memo里的数据相加求和?

10

delphi Memo里的数据相加求和?
比如:
1
2
3
EDIT显示和数:6

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

4条回答 默认 最新

  • 已采纳
    caozhy 从今以后生命中的每一秒都属于我爱的人 2017-06-18 15:42
     var n,i:integer;
    begin
      for i := 0 to memo1.lines.count - 1 do
      begin
         n = n + StrToInt(memo1.lines[i]);
      end;
        edit1.Text = IntToStr(n);
    end;
    
    点赞 2 评论 复制链接分享
  • caozhy 从今以后生命中的每一秒都属于我爱的人 2017-06-18 23:59

    edit1.Text = IntToStr(n);
    ->
    edit1.Text := IntToStr(n);

    点赞 1 评论 复制链接分享
  • caozhy 从今以后生命中的每一秒都属于我爱的人 2017-06-19 16:22

    另外你可以下载 http://download.csdn.net/album/detail/3779
    前5个包,这光盘里面有delphi的入门教程,你先系统看下。

    点赞 1 评论 复制链接分享
  • a814123 814123 2017-06-19 02:23

    有小数点不行,会出错

    点赞 评论 复制链接分享

相关推荐