डेल्फी में एक ज्ञापन के माध्यम से खोजें?

Question

क्या कोई मुझे कुछ सरल कोड दे सकता है जो मुझे एक ज्ञापन में एक साधारण स्ट्रिंग को खोजने की क्षमता प्रदान करेगा और इसे मिलने के बाद ज्ञापन में हाइलाइट किया गया है?

Answer 1

function TForm1.FindText(const aPatternToFind: String):Boolean; 
    var 
    p: Integer; 
    begin 
    p := pos(aPatternToFind, Memo1.Text); 
    Result := (p > 0); 
    if Result then 
     begin 
     Memo1.SelStart := p; 
     Memo1.SelLength := Length(aPatternToFind); 
     Memo1.SetFocus; // necessary so highlight is visible 
     end; 
    end; 

यदि वर्डवाप सत्य है तो यह लाइनों में नहीं खोजता है।

Answer 2

यह खोज दस्तावेज़ रैप, केस (इन) संवेदनशील खोज और कर्सर स्थिति से खोज करने की अनुमति देती है।

type 
    TSearchOption = (soIgnoreCase, soFromStart, soWrap); 
    TSearchOptions = set of TSearchOption; 


function SearchText(
    Control: TCustomEdit; 
    Search: string; 
    SearchOptions: TSearchOptions): Boolean; 
var 
    Text: string; 
    Index: Integer; 
begin 
    if soIgnoreCase in SearchOptions then 
    begin 
    Search := UpperCase(Search); 
    Text := UpperCase(Control.Text); 
    end 
    else 
    Text := Control.Text; 

    Index := 0; 
    if not (soFromStart in SearchOptions) then 
    Index := PosEx(Search, Text, 
     Control.SelStart + Control.SelLength + 1); 

    if (Index = 0) and 
     ((soFromStart in SearchOptions) or 
     (soWrap in SearchOptions)) then 
    Index := PosEx(Search, Text, 1); 

    Result := Index > 0; 
    if Result then 
    begin 
    Control.SelStart := Index - 1; 
    Control.SelLength := Length(Search); 
    end; 
end; 

आप HideSelection = ज्ञापन चयन भले ही ज्ञापन ध्यान केंद्रित नहीं कर रहा है दिखाने के लिए पर झूठी सेट कर सकते हैं।

इस तरह

उपयोग:

SearchText(Memo1, Edit1.Text, []); 

खोज संपादन के साथ-साथ देता है।