Question

delphi 编写记事本的查找功能时，总是不对，求助，搜到一个，但是有一句不理解

procedure TForm1.FindDialog1Find(Sender: TObject);
var
i,j,z,posd,line:Integer;
begin
line:=memo1.Lines.Count;
for i := 0 to line do
begin
posd:=Pos(FindDialog1.FindText,memo1.Lines[i]);
if posd <>0 then
begin
z:=0;
for j := 0 to i-1 do
z:=z+Length(memo1.Lines[j]);
z:=z+(i*2); //这一句是怎么来的，怎么算的？
z:=z+posd-1;
memo1.SetFocus;
memo1.SelStart :=z;
memo1.SelLength :=Length(FindDialog1.FindText);
break;
end;
end;
end;

Answer 1

z:=z+(i*2);
这一句是将每一行的长度（即字数）加上回车换行符。

另外，上文中有点错误：
变量line为文字的行数，但后续处理出错。第5行不用改，第6行应改为
for i := 0 to line－1 do

Answer 2

line:=memo1.Lines.Count -1 ;

Answer 3

z:=z+(i*2); //这一句是怎么来的，怎么算的？
每一行文本结束，换行时会加上 CR 和 LF 这两个字符，这两个字符为不可见字符

还有什么不明白的欢迎继续追问。