论坛 › Delphi交流 › 请高手解答一下，谢谢了先！

隨鈊乄鎍慾 发表于 2014-7-3 22:32:59

请高手解答一下，谢谢了先！

在小甲鱼老师的：028鱼C记事本V1.0（下） - 阶段性上机实践（小结）04 - 零基础入门学习Delphi028的原代码如下。但我在下面红色字体部分的部分老是搞不清是什么意思，请高手解答一下，谢谢了先！
代码如下：
var
Form1: TForm1;

implementation

{$R *.dfm}
var
FileName: String;

procedure TForm1.New1Click(Sender: TObject);
begin
If Memo1.Modified = True then
begin
    If ID_OK = MessageBox(0, '内容已经发生变化，是否需要保存！', '提醒', MB_OKCANCEL Or MB_ICONWARNING) then
    begin
      SaveDialog1.Filter:= '文本文件(*.txt)|*.TXT';

      If SaveDialog1.Execute then
      begin
      FileName:= SaveDialog1.FileName + '.txt';
      Memo1.Lines.SaveToFile(FileName);
      end
      Else
      Exit;
    end;
end
Else
    Memo1.Lines.Clear;
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
OpenDialog1.Filter:= '文本文件(*.txt)|*.txt';// 过滤器

If OpenDialog1.Execute then
begin
    FileName:= OpenDialog1.FileName + '.txt';
    Memo1.Lines.LoadFromFile(FileName);
end
Else
    Exit;// 打开失败则退出
end;

procedure TForm1.Save1Click(Sender: TObject);
begin
SaveDialog1.Filter:= '文本文件(*.txt)|*.txt';

If SaveDialog1.Execute then
begin
    FileName:= SaveDialog1.FileName;
    Memo1.Lines.SaveToFile(FileName);
end
Else
    Exit;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Undo1Click(Sender: TObject);
begin
Memo1.Undo;
end;

procedure TForm1.Cut1Click(Sender: TObject);
begin
Memo1.CutToClipboard;
end;

procedure TForm1.Copy1Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;

procedure TForm1.Paste1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;

procedure TForm1.Delete1Click(Sender: TObject);
begin
Memo1.ClearSelection;
end;

procedure TForm1.CtrlA1Click(Sender: TObject);
begin
Memo1.SelectAll;
end;

procedure TForm1.Find1Click(Sender: TObject);
begin
FindDialog1.FindText:= Memo1.SelText;
FindDialog1.Execute;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
var
i, j, PosReturn, SkipChars: Integer;
begin
For i:= 0 to Memo1.Lines.Count do
begin
    PosReturn:= Pos(FindDialog1.FindText, Memo1.Lines);
    If PosReturn <> 0 then
    begin
      Skipchars:= 0;
      For j:= 0 to i-1 do
      begin
      Skipchars:= Skipchars + Length(Memo1.Lines);
      end;


      SkipChars:= SkipChars + (i*2);//这里的i 为什么要乘以2？；
      SkipChars:= SkipChars + PosReturn - 1;


      Memo1.SetFocus;
      Memo1.SelStart:= SkipChars;
      Memo1.SelLength:= Length(FindDialog1.FindText);
      Break;
    end;
end;
end;

procedure TForm1.Font1Click(Sender: TObject);
begin
If FontDialog1.Execute then
    Memo1.Font:= FontDialog1.Font
Else
    exit;
end;

procedure TForm1.BackGround1Click(Sender: TObject);
begin
If ColorDialog1.Execute then
    Memo1.Color:= ColorDialog1.Color
Else
    exit;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
ShellAbout(self.Handle,
   pChar('鱼C记事本V1.0'),
   pChar('鱼C工作室 -- 小甲鱼'),
   HICON(nil));
end;

procedure TForm1.InsertDate1Click(Sender: TObject);
begin
Memo1.SelText:= DatetimeToStr(now());
end;

procedure TForm1.Replace1Click(Sender: TObject);
begin
ReplaceDialog1.ReplaceText:= Memo1.SelText;
ReplaceDialog1.Execute;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If Memo1.Modified = True then
begin
    If ID_OK = MessageBox(0, '内容已经发生变化，是否需要保存！', '提醒', MB_OKCANCEL Or MB_ICONWARNING) then
    begin
      SaveDialog1.Filter:= '文本文件(*.txt)|*.TXT';

      If SaveDialog1.Execute then
      begin
      FileName:= SaveDialog1.FileName + '.txt';
      Memo1.Lines.SaveToFile(FileName);
      end
      Else
      Exit;
    end;
end;
end;

procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
var
SelPos: Integer;
begin
with TReplaceDialog(Sender) do
begin
    SelPos:= Pos(FindText, Memo1.Lines.Text);
    if SelPos > 0 then
    begin
      Memo1.SelStart := SelPos - 1;
      Memo1.SelLength := Length(FindText);
      Memo1.SelText := ReplaceText;
    end
    else
      MessageBox(0, '抱歉，找不到需要替换的文件!', '提醒!', MB_OK Or MB_ICONWARNING);
end;
end;


end.

h1006272147 发表于 2014-7-3 22:33:00

For j:= 0 to i-1 do
      begin
      Skipchars:= Skipchars + Length(Memo1.Lines);
      end;
这个循环将前面所有行的字符数加起来，但是没有加上换行符
SkipChars:= SkipChars + (i*2);
就把所有的换行符加上了
SkipChars:= SkipChars + PosReturn - 1
就是把本行Find到的字符串前面的字符数加起来

h1006272147 发表于 2014-7-27 10:45:52

乘以2是因为回车符的缘故

wangerwanger 发表于 2014-7-28 15:21:46

h1006272147 发表于 2014-7-3 22:33
For j:= 0 to i-1 do
      begin
      Skipchars:= Skipchars + Length(Memo1.Lines);


谢谢~~~

查看完整版本: 请高手解答一下，谢谢了先！