Question

下面是delphi的“替换”的代码 单个替换是无问题 但不能全部替换 请问出现了什么问题

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
var
s:string;

begin
if frreplaceall in replacedialog1.Options then
begin
ReplaceDialog1Find(self);
if founditem then
begin
s:=listbox1.Items[findIndex-1] ;
while findindex<listbox1.Items.Count do
begin
if frmatchcase in replacedialog1.Options then
listbox1.Items[findindex-1]:=stringreplace(s,replacedialog1.FindText,replacedialog1.ReplaceText,[rfreplaceall,rfignorecase])
else
listbox1.Items[findindex-1]:=stringreplace(s,replacedialog1.FindText,replacedialog1.ReplaceText,[rfreplaceall]);
inc(findindex) ;
if findindex<listbox1.Items.Count then
exit
else
s:=listbox1.Items[findindex] ;
end;

end
else
if not founditem then
replacedialog1find(self) ;
end

else
begin
replacedialog1find(self) ;
s:=listbox1.Items[findIndex-1] ;
if frmatchcase in replacedialog1.Options then
listbox1.Items[findindex-1]:=stringreplace(s,replacedialog1.FindText,replacedialog1.ReplaceText,[rfreplaceall,rfignorecase])
else
listbox1.Items[findindex-1]:=stringreplace(s,replacedialog1.FindText,replacedialog1.ReplaceText,[rfreplaceall]);

end;

end;
end.

Answer 1

跟踪一下，看看是进了if还是进了else