在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相等的个数的语句,麻烦详细点,谢谢 展开
1\A
2\B
3\C
memo2
1\A
2\C
3\C
当点击button1时如何在edit1上显示出memo1和memo2相等的个数的语句,麻烦详细点,谢谢 展开
1个回答
展开全部
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;
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;
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询