varI,j,k : Integer;beginK := 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 = memo2.Lines.Strings[j])then//判断它们是否相等.
inc(k);
//如果相等 k 自加1;
end;label1.text := InttoStr(K)