من باز اومدم. خیلی هم ممنون که ما رو قابل می دونی.نقل قول:
بزارید نظر دوستان (مباح)و(سلجر)را ببینیم بعد اگه خواستید به شما طریقه جستجو را یاد میدهم
یه کد قبلآ داشتم. گذاشتم اینجا . اما مال نانفرس رو هنوز ندیدم. من که این رو تست کردم جواب داده.
این هم از کد :
کد:private
function FindText(Text: String):Integer;
توجه : وقتی که این فانکشن رو صدا میزنی. نوشته مورد نظر انتخاب میشه.کد:function TForm1.FindText(Text: String): Integer;
var
I, J, PosReturn, SkipChars: Integer;
begin
Result := 0;
for I := 0 to Memo1.Lines.Count do begin
PosReturn := Pos(Text,Memo1.Lines[I]);
if PosReturn <> 0 then {found!} 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(Text);
Result := I;
Break;
end;
end;
end;
امیدوارم که بدرد بخوره.
موفق باشی. بای
