财务软件版1楼: 请教各大师：
如何求得Memo中的连续出现的字符的次数？
如Memo1中有如下内容：
45
12
23
23
23
99
用何方法或函数得到连续的‘23’共有几行？(这里是3)

多谢!

2楼: 做个函数
循环比较 如酒店会员管理软件

3楼: 挨个比较

4楼: 本人实在搞不清，具体如何？

5楼: 在窗体中放2个Memo，Memo1中放数字，Memo2显示结果，以下代码供抛砖引玉：

procedure TForm1.Button2Click(Sender: TObject);
var
i, Count : integer;
str : string;
begin
str := ＇＇＇＇;
Count := 0;
for i := 1 to Memo1.Lines.Count -1 do
begin
if Memo1.Lines.Strings[i] = Memo1.Lines.Strings[i -1] then
begin
if Str = ＇＇＇＇ then
begin
str := Memo1.Lines.Strings[i -1];
Count := 2;
end
else
Count := Count + 1;

end
else
begin
if str <> ＇＇＇＇ then
begin
Memo2.Lines.Add(Str + ＇＇=＇＇ + IntToStr(Count));
str := ＇＇＇＇;
Count := 0;
end;
end;
end;
end;

6楼: 多谢royal1442