delphi Memo里的数据相加求和?

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

4个回答

 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;
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复a814123: 你问问题的时候都是整数,所以给你的代码自然也是整数的。
2 年多之前 回复
caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复a814123: 小数点用StrToFloat代替StrToInt
2 年多之前 回复
a814123
814123 不能有小数点啊,否则出错
2 年多之前 回复

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

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

有小数点不行,会出错

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!