المشاركات : 316
المواضيع 64
:
: 1
الإنتساب : Apr 2009
السلام عليكم
كل شئ في العنوان:laugh:
Pos للبحث في الأسطر
Break للخروج من الحلقة For
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
مثال آخر للبحث والتحديد باستخدام SearchBuf من StrUtils مع خيارات إضافية soDown, soMatchCase, soWholeWord على أي مكون TCustomEdit
كود :
[COLOR=Blue]uses
StrUtils;
function SearchMemo(Memo: TCustomEdit; const SearchString: string;
Options: TStringSearchOptions): boolean;
var
Buffer, P: PChar;
Size: Word;
begin
Result := False;
Size := Memo.GetTextLen;
Buffer := StrAlloc(Size + 1);
try
Memo.GetTextBuf(Buffer, Size + 1);
P := SearchBuf(Buffer, Size, Memo.SelStart, Memo.SelLength, SearchString,
Options);
if P <> nil then
begin
Memo.SelStart := P - Buffer;
Memo.SelLength := Length(SearchString);
Result := True;
end;
finally
StrDispose(Buffer);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.HideSelection := False;
if not SearchMemo(Memo1, Edit1.Text, [soDown, soMatchCase, soWholeWord]) then
MessageBox(Handle, 'Text not found!', 'Info', MB_OK + MB_ICONINFORMATION);
end;[/COLOR]
كود بسيط للبحث في TMemo