モナーの *やさしい* Delphi質問スレ Ver.10
■ このスレッドは過去ログ倉庫に格納されています
0248デフォルトの名無しさん
NGNGとしてdelphiのヘルプに載っていたんですけど、下の関数の
SkipChars:=SkipChars+(I*2)が何をしているのか全然わからないんですが
誰かおしえてくれませんか?
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[I]);
if PosReturn <> 0 then {検索文字列が一致}
begin
SkipChars := 0;
for J := 0 to I - 1 do
SkipChars := SkipChars + Length(Memo1.Lines[J]);
SkipChars := SkipChars + (I*2);
SkipChars := SkipChars + PosReturn - 1;
Memo1.SetFocus;
Memo1.SelStart := SkipChars;
Memo1.SelLength := Length(FindDialog1.FindText);
Break;
end;
end;
end;
■ このスレッドは過去ログ倉庫に格納されています