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 {found!}
begin
Skipchars := 0;
for J := 0 to I - 1 do
Skipchars := Skipchars + Length(Memo1.Lines[J]);
查找:
for count0 := 0 to Memo.Lines.Count - 1 do
begin
for count1 := 1 to Length(Memo.Lines[count0]) - Length(SearchText) do
begin
if SearchText = Copy(Memo.Lines[count0], count1, Length(SearchText)) then
Break;
end;
end;