德爾福SEARCHTEXT問題

Question

出於某種原因，使用

SearchText := 'Program Files'; 
    ReplaceText := 'Program Files (x86)'; 
    SearchAndReplace(SearchText, ReplaceText); 

會什麼都不做，它只是將不會更改文本，使用其他任何文本時工作正常。

這是某種「保留」字嗎？或（）是什麼讓它不起作用？

procedure Tfc_Great.SearchAndReplace 
      (InSearch, InReplace: string) ; 
var X, ToEnd : integer; 
    oldCursor : TCursor; 
begin 
    oldCursor := Screen.Cursor; 
    Screen.Cursor := crHourglass; 
    with RichEdit1 do 
    begin 
    X := 0; 
    ToEnd := length(Text) ; 
    X := FindText(inSearch, X, ToEnd, []) ; 
    while X <> -1 do 
    begin 
     SetFocus; 
     SelStart := X; 
     SelLength := length(inSearch) ; 
     SelText := InReplace; 
     X := FindText(inSearch, 
        X + length(InReplace), 
        ToEnd, []) ; 
    end; 
    end; 
    Screen.Cursor := oldCursor; 
end; 

Answer 1

嘗試分配輸出;）

SearchText := 'Program Files'; 
ReplaceText := 'Program Files (x86)'; 
ResultText := SearchAndReplace(Text, SearchText, ReplaceText); 

與

function SearchAndReplace 
    (sSrc, sLookFor, sReplaceWith : string) : string; 
var 
    nPos, nLenLookFor : integer; 
begin 
    nPos := Pos(sLookFor, sSrc) ; 
    nLenLookFor := Length(sLookFor) ; 
    while (nPos > 0) do begin 
    Delete(sSrc, nPos, nLenLookFor) ; 
    Insert(sReplaceWith, sSrc, nPos) ; 
    nPos := Pos(sLookFor, sSrc) ; 
    end; 
    Result := sSrc; 
end;