如題,如何在一TXT檔中搜尋出一段特定的文字,有點像WORD中的尋找(CTRL F)

您好﹗    可利用FindDialog元件來處理相關的事務﹒    簡單範例如下﹕ 在Form中加一個FindDialog﹐一個OpenDialog﹐一個RichEdit﹐兩個Button（分別為Open和Search） OpenDialog的Filter屬性值設為﹕Text File|*.txt RichEdit的HideSeletion屬性值設為﹕False; RichEdit的ScrollBars屬性值設為﹕ssBoth

procedure TForm1.OpenClick(Sender: TObject);
begin
  if OpenDialog1.Execute then
    RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
end;    procedure TForm1.SearchClick(Sender: TObject);
begin
  FindDialog1.Execute;
end;    procedure TForm1.FindDialog1Find(Sender: TObject);
Var
  FoundPos, StartPos, EndPos : Integer;
begin
  if RichEdit1.SelLength <> 0 then
    StartPos := RichEdit1.SelStart   RichEdit1.SelLength
  else
    StartPos := 0;
  EndPos := Length(RichEdit1.Text) - StartPos;
  FoundPos := RichEdit1.FindText(FindDialog1.FindText,
    StartPos, EndPos, [stMatchCase]);
  if FoundPos <> -1 then
    begin
      RichEdit1.SetFocus;
      RichEdit1.SelStart := FoundPos;
      RichEdit1.SelLength := Length(FindDialog1.FindText);
    end;
end;

範例執行時﹐可先由Open按鈕開啟OpenDialog對話方塊﹐點選.txt文件后將其讀入RichEdit﹐再由Search按鈕開啟FindDialog對話方塊﹐輸入需要查詢的內容﹐開始查詢﹒ 參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟

------
忻晟