在delphi7中如何用button按钮来计算两个memo中的值是否相等,并在edit上显示出相等的个数,麻烦详细点,谢

如:memo11\A2\B3\Cmemo21\A2\C3\C当点击button1时如何在edit1上显示出memo1和memo2相等的个数的语句,麻烦详细点,谢谢... 如:memo1
1\A
2\B
3\C
memo2
1\A
2\C
3\C
当点击button1时如何在edit1上显示出memo1和memo2相等的个数的语句,麻烦详细点,谢谢
展开
 我来答
啦啦啦啦VlD
2011-04-16 · 超过25用户采纳过TA的回答
知道答主
回答量:61
采纳率:0%
帮助的人:62.2万
展开全部
var
I,j,k : Integer;
begin
K := 0;
for I := 0 to memo1.Lines.Count - 1 do //先找memo1每行的字符
for J := 0 to memo2.Lines.Count - 1 do begin //再找memo2每行的字符
if (memo1.Lines.Strings[i] = memo2.Lines.Strings[j]) then //判断它们是否相等.
inc(k); //如果相等 k 自加1;
end;
label1.text := InttoStr(K); //k就是相等的个数.
end;
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式