Question

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

如：memo1
1\A
2\B
3\C
memo2
1\A
2\C
3\C
当点击button1时如何在edit1上显示出memo1和memo2相等的个数的语句，麻烦详细点，谢谢

Answer 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;