Question

DELPHI 读取文本文件并且不重复读取的问题

如图首先我想点击botton1先找‘1’在memo里出现了多少次并把次数显示在edit1里面，如果是同一行有多个1，就只启示录一次然后把memo1最后一条信息保存在edit2里面再点击botton1时从EDIT2先找到上次保存的最后一条信息，并从这个信息往下再计算1出现了多少次如果edit2是面是空的就从第一条开始统计1出现了多少次.检查来说就是统计1出来了多少次并且不重复统计的代码

Answer 1

你表达的不太明白，按我的理解

procedure TForm1.btn1Click(Sender: TObject);
var
i, StartPos, EndPos, consts:Integer;
tmps: AnsiString;
begin
consts:=0;
tmps:= Memo1.Lines.Text;
StartPos:=StrToIntDef(Edit2.Text, 1);
for i := StartPos to Length(tmps) do begin
if SameText(Copy(tmps, i ,1), '1') then Inc(consts);
EndPos:=i;
end;
Edit1.Text:=IntToStr(consts);
Edit2.Text:=IntToStr(EndPos);
end;